Советы по Delphi

         

Исправление ошибки записи на файл полей с данными


Вот самый простой способ сделать это (никто не спорит, может быть существует лучший способ):

    var F : TextFile; S : String;
AssignFile(F, 'FILENAME.TXT'); Reset(F); while Not EOF(F) do    begin Readln(F, S); V1:= Copy(S,1,3); V2:= Copy(S,4,6); ... end; CloseFile(F);

Вот что должно получиться при нормальных обстоятельствах. Но если файл большой, то для его чтения необходимо использовать blockread, после чего сканировать блок. Если вы подумываете об использовании ODBC, я не думаю, что все это может вам понадобиться. [001686]



Содержание раздела