Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

Сохранение 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.055 c
3-1140441008
Mishenka
2006-02-20 16:10
2006.04.16
Можно ли узнать значение ключевого поля до добавления записи в та


15-1143124741
ZeFiR
2006-03-23 17:39
2006.04.16
Красиво, правда?


15-1143447194
Boogier
2006-03-27 12:13
2006.04.16
Не могу скачать Update для Delphi 7.


15-1143186521
Ega23
2006-03-24 10:48
2006.04.16
С Днём рождения! 24 марта


15-1143358757
Wolfram
2006-03-26 11:39
2006.04.16
Как получить номер строки в коде?