Text File WriteLn ????
3 отговора
93 прегледа
Text File WriteLn ????
Как мога да записвам информация в текстов файл без да изтривам предишната информация в файла? Само да добавям информация!!!
Благодаря ви предварително.
Kato mi se doraboti, sjadam da si po4ina dokato mi mine
Благодаря ви предварително.
Kato mi se doraboti, sjadam da si po4ina dokato mi mine
Re: Text File WriteLn ????
var
T:textFile;
begin
AssignFile(T,FileName);
try
Append(T);
Writeln(t,'Ala bala');
Flush(T); { ensures that the text was actually written to file }
finally
CloseFile(T);
end;
end;
T:textFile;
begin
AssignFile(T,FileName);
try
Append(T);
Writeln(t,'Ala bala');
Flush(T); { ensures that the text was actually written to file }
finally
CloseFile(T);
end;
end;
Редактирано от SAGE_BS на