Текущий архив: 2004.04.25;
Скачать: CL | DM;

Вниз

Как записать содержимое 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]

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

---

← →
SergP ©   (2004-04-10 09:27) [4]

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

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;

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.118 c