septerr píše:
cafte
Potreboval bz som vediet ako mozem ulozit nejaky text ktory zadam do EDIT do suboru?
Isiel som podla navodu na niekolkych strankach(premenna,assignfile,rewrite) ale stale to pise nejake errory.
Dik
Pokiaľ sa jedná o TEdit, tak takto:
Kód:
procedure TForm1.Button1Click(Sender: TObject);
var
f: TextFile;
begin
AssignFile(f, 'C:\edit.txt');
Rewrite(f);
write(f, Edit1.Text);
CloseFile(f);
end;
Ak by sa mal ukladať text z TMemo komponentu, tak by to bolo o niečo jednoduchšie:
Kód:
Memo1.Lines.SaveToFile('C:\memo.txt');
