Текстовые файлы.

[dima-intro]

Напишите кто может какие-нибудь интересные процедуры для работы с текстовыми файлами. Любые...

[kenwood2010]

Реализована на С++ Builder 6.0 написано на языке программирования С
не знаю насколько будет интересно, но у меня есть одна:

//Функция для определния строки с максимальным количеством слов
int MaxWord(char* path, FILE *in) 
{
  char FileStr[80]="\0";     
  char word[80]="\0";        
  int j = 0;                  
  int count = 0;          
  int countMax = 0;       
  int str = 0;             
  int strMax = 0;           
   while (!feof(in))
  {
   fgets(FileStr,80,in); 
   count = 0;
   str++;
   for(int i=0; i < strlen(FileStr) + 1; i++)
    {
   while (FileStr[i]!=' '&& FileStr[i]!='\0')
    {
      word[j++] = FileStr[i++];
    }
     count++;
     for(int k = 0; k < sizeof(word); k++) {word[k] = '\0';}
     j = 0;
    }
     if(count > countMax)
     {
      strMax = str;
      countMax = count;
     }
   }
 fclose(in);     
 return strMax;
}

[dima-intro]

желательно на Делфи.

[Stilet]

А в чем интерес?

var f:file of byte;cdata:String;
begin
 // Готовим файл
 AssignFile(f,AFileName);rewrite(f);
 cdata:='Эта строка попадет в файл'
 BlockWrite(f,cdata[1],length(cdata));
 // Не забыв его закрыть.
 CloseFile(f);
end;