|
Nisi rekao za čega ti treba upis u datoteku? Probaj:
//deklarišeš
f: Textfile;
dir: string;
...
try
dir := ExtractFilePath(Application.Exename);
AssignFile(f,dir + '\Tekstualni_Fajl.txt');
Append(f);
Writeln(f, Edit1.Text);
Closefile(f);
except
on E: Exception do
ShowMessage(E.Message)
end;
...
A učitati, inverzno, .txt fajl u TMemo, npr., možeš:
// deklarises
f: Textfile;
dir,str: string;
begin
dir := ExtractFilePath(Application.Exename);
AssignFile(f,dir + '\Tekstualni_Fajl.txt');
Reset(f);
Memo1.Clear;
while not eof(f) do
begin
Readln(f, str);
Memo1.Lines.Add(str)
end;
Closefile(f);
//ili
...
dir := ExtractFilePath(Application.Exename);
Memo1.Lines.LoadFromFile(dir + '\Tekstualni_Fajl.txt');
...
Naravno, ovo je trivijalan primer, kao što je rečeno, potrudi se u helpu naći ostatak, da optimizuješ problem.
Ako želiš pamtiti po izlasku iz programa koja vrednost ti je bila u TEdit komponenti, to je bolje raditi sa .ini fajlovima.
|
