Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Append(f);


Автор: DYUMON 13.8.2007, 22:12
В дркб прочитал о паскалевском методе работы с файлами попробовал так сделать ние гугу
Код

procedure TForm1.N2Click(Sender: TObject);
var
f: TextFile;
FilePath:string[80];

begin
FilePath:=('IP-àäðåññà.txt');
AssignFile(f, FilePath);
if not FileExists(FilePath) then
rewrite(f);
closefile(f);
end;
append(f);
writeln(f,'ïðèâåò ýòî ðàáîòâåò');
flush(f);
closefile(f);

end;

а ему не нравиттся
Код

Append(f);

почему не могу ни как понять?

Автор: ne0n 13.8.2007, 22:14
у тебя же 1 бегин, а енда 2 smile ты закрываешь файл а потом с ним хочешь работать...

Автор: Sunvas 13.8.2007, 23:44
Между строками
Цитата(DYUMON @  13.8.2007,  22:12 Найти цитируемый пост)
if not FileExists(FilePath) then
rewrite(f);

Поставь begin

Автор: tvorozhenciya 3.6.2010, 19:45
Добрый вечер всем!!!
Скажите, пожалуйста, у меня есть код:
Код

assignfile(f,'.\Test\Rezultati\Obshee\OB.txt');  rewrite(f);
   begin
    fam:=form12.Edit1.text;
    kp:=kolp1;
    kn:=koln1;
     writeln(f,fam);
     writeln(f,kp);
     writeln(f,kn);
    end;
   closefile(f);
  end;


Но проблема в том,что данный код перезаписывает файл, а как сделать, чтобы он дописывал?
Задача такая: тестирование проходит, затем результаты должны записываться в файл,а потом считываются в таблицу, не могу сделать дозапись в этот же файл =-(((..подскажите плиззз

Автор: Proxin 3.6.2010, 20:22
append(f);

Автор: tvorozhenciya 3.6.2010, 20:45
Цитата(Proxin @ 3.6.2010,  20:22)
append(f);

не поняла. это куда или вместо чего?

Автор: Данкинг 3.6.2010, 20:59
Цитата(tvorozhenciya @ 3.6.2010,  21:45)
Цитата(Proxin @ 3.6.2010,  20:22)
append(f);

не поняла. это куда или вместо чего?

Вместо writeln, видимо.

Автор: Proxin 3.6.2010, 21:21
вместо rewrite.

Автор: Данкинг 3.6.2010, 22:59
Цитата(Proxin @ 3.6.2010,  22:21)
вместо rewrite.

Да, извиняюсь, попутал. smile 

Автор: PsiMagistr 4.6.2010, 17:12
для работы с файлами есть класс интересный TFileStream.

Тоже хороший.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)