Как записать содержимое TEdit в файл?

← →
AmazedDexter © (2004-04-10 06:58) [0]

Добрый утро!:) Подскажите плиз, как записать строку TEdit в файл! Заранее благодарен.

← →
Gero © (2004-04-10 08:15) [1]

Можно так:

var
F : TextFile;
begin
AssignFile(F, "С:\SomeFile.txt");
Rewrite(F);
Write(F, Edit1.Text);
CloseFile(F);
end;

← →
TButton © (2004-04-10 08:48) [2]

а можно написать наследник TEdit с методом SaveToFile и продавать на torry =)

← →
AmazedDexter © (2004-04-10 08:55) [3]

Спасиб вам! А Паскаль же учил я раньше, да призабыл!:))

Можно типа так:

procedure TForm1.SaveToFile(const FileName: string; const s:string);
var
Stream: TStream;
begin
Stream := TFileStream.Create(FileName, fmCreate);
try
Stream.WriteBuffer(Pointer(S)^, Length(S));
finally
Stream.Free;
end;
end;

Как записать содержимое TEdit в файл? Найти похожие ветки