Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сохранение Edit-ов [D7, XP]

Der Nechk@ssoff © (2006-04-05 13:27:00)
Здраствуете!Помогите(кодом) реализовать такую вещь:есть N Edit-ов и Savedialog. Как,по нажатию на буттон,сохранить текст из edit-ов в текст.файл?

Der Nechk@ssoff (2006-04-05 14:19:00) [1]
Спасибо!Но(!) в файле получается вот что:
edit1.|123
edit2.|123
Можно это исправить и как?

MsGuns (2006-04-05 13:41:00) [2]
procedure TForm1.SaveEditsValuesToTextFile;
var
i: integer;
sl: TStrings;
begin
sl := TStringList.Create;
for i := 0 to Self.ComponentCount-1 do
if Self.Components[i].ClassType=TEdit then
with TEdit(Self.Components[i]) do
sl.Add(Name+'|'+Text);
sl.SaveToFile('EVSave.txt');
end;

MsGuns (2006-04-05 13:36:00) [3]
TStrings

Der Nechk@ssoff (2006-04-05 13:33:00) [4]

> MsGuns © (05.04.06 13:30) [1]
> 1. Создать список

Список чего?

Anatoly Podgoretsky (2006-04-05 13:31:00) [5]
WriteLn

MsGuns (2006-04-05 13:30:00) [6]
1. Создать список
2. Обходя в цикле все контролы формы, выбирать только Tedit и для каждого добавлять в список строчку <TEdit[i].Name>|<TEdit[i].Text>

MsGuns (2006-04-05 13:30:00) [7]
3. Список сохъранять в текстовый файл (SaveToFile)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »