Чтение из текстового файла и обработка посимвольная

[Serge_Bliznykov]

Не могу понять чего делать? Может проблема в uses или в связке AssignFile Append(F)?

да, не должно быть..
можете написать вместо Append(f);

  System.Append(f);

это чтобы исключить подключение процедуры с таким именем из другой библиотеки.. Хотя, это очень маловероятно, что мешает..

Попробуйте пройтись в отладчике пошагово (по F8 или поставьте точку останова на AssignFile).
Если использовать Rewrite(f) - файл перезаписывается без ошибок?

C:\Program Files\...

так. стоп. А что за операционнка у Вас? Vista\Seven может не позволить писать в эту папку с включённым UAC. Вы блокнотом этот файл открываете? Дописать строчку и сохранить получается?

честно говоря, я уже теряюсь в догадках, что у вас там происходит и почему не работает!

[hon]

Пиши вместо Append лучше Rewrite чтобы убить проблему.

[JIeIIIa]

дмитрий12123, добавьте оброботку ошибок. Ведь если программа по какой-то причине не может записать данные в файл, то выполнение алгоритма надо остановить...

AssignFile(F,'C:\Program Files\Borland\Delphi7\Projects\pas.txt');
{$I-}
Append(F);
{$I+}

if IOResult <> 0 then
begin
   ShowMessage('Ошибка доступа к файлу: '+IntToStr(IOResult)); 
   exit;
end;

По номеру уже читайте что у Вас за ошибка.

hon, что значит Append лучше Rewrite? У них как бы разное предназначение. А если надо именно дописать данные в файл?

[дмитрий12123]

В исходниках хороший пример нашел! Но еще куча вопросов осталась.

[Serge_Bliznykov]

В исходниках хороший пример нашел!

ну, если разобрались, так в чём в вашем случае была проблема?!
Любопытно же!

[дмитрий12123]

Не могу понять, что-то не по порядку выполняю? Открыл делфи, полностью набрал программу, запуск, все работает. Куча эмоций. Сохранение файла. Закрываю делфи.
Следующий день: Запуск делфи. Открываю уже сохраненый файл, запускаю НОЛЬ ДЕЙСТВИЙ! Что мне делать?

[дмитрий12123]

Вроде как через .dpr открывать надо... Запускал раньше exe не работало. Вечером вроде как уже запускается. Никаких изменений в программе не делал. В чем причина не понятно. скорее всего какой-то алгоритм в запуске расширений (pas,dpr,exe,dfm,res,dcu,cfg,ddp,do f).

[дмитрий12123]

Все работает при запуске с .dpr ! Что делать, если надо прочитать из файла около1000000 символов по 3 символа? разделение пробелами. Строка имеет 4400 символов.

[Serge_Bliznykov]

например, так:

var ts : TStringList;
   i: integer;
begin
  ts := TStringList.Create;
  try
     ts.LoadFromFile('C:\Program Files\Borland\Delphi7\Projects\pas.txt');

     // тут обработка файла строчки файла находятся в ts.strings[i]

  finally
     FreeAndNil(ts);
  end; 
end;

[дмитрий12123]

Ещё один вопрос:

   
      begin

        readln(f, buf);       // прочитать строку из файла
        Memo1.Lines.Add(buf); // добавить строку в поле Memo1
     end;

Как в этот код добавить проверку на нажатие кнопки после begin ?