Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Вниз
Сохранение Edit-ов Найти похожие ветки
← →
Der Nechk@ssoff © (2006-04-05 13:27) [0]Здраствуете!Помогите(кодом) реализовать такую вещь:есть N Edit-ов и Savedialog. Как,по нажатию на буттон,сохранить текст из edit-ов в текст.файл?
← →
MsGuns © (2006-04-05 13:30) [1]1. Создать список
2. Обходя в цикле все контролы формы, выбирать только Tedit и для каждого добавлять в список строчку <TEdit[i].Name>|<TEdit[i].Text>
← →
MsGuns © (2006-04-05 13:30) [2]3. Список сохъранять в текстовый файл (SaveToFile)
← →
Anatoly Podgoretsky © (2006-04-05 13:31) [3]WriteLn
← →
Der Nechk@ssoff © (2006-04-05 13:33) [4]
> MsGuns © (05.04.06 13:30) [1]
> 1. Создать список
Список чего?
← →
MsGuns © (2006-04-05 13:36) [5]TStrings
← →
MsGuns © (2006-04-05 13:41) [6]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;
← →
Der Nechk@ssoff © (2006-04-05 14:19) [7]Спасибо!Но(!) в файле получается вот что:
edit1.|123
edit2.|123
Можно это исправить и как?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.034 c
