VPF::Скомпоновать в одну строку - Форум программистов

supervladislav

Дата 21.9.2012, 04:42 (ссылка)

(нет голосов)

Загрузка ...

///\\\///\\\///\\\

Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9

Доброе время суток ,спасибо всем тем кто мне помог разобраться с предыдущим вопросом.
Ниже приведён код где работает всё кроме функции записи в файл.

Мне нужно чтобы информация сохранилась в файл из трёх свойств 2-ух Tedit И одного Combox

Код


strs.Add(lcbtd.Text);
      strs.Add(lcbtd2.Text);
      strs.Add(lcbtd3.Text);

Можно ли не пребигая к новой модернизации кода сохранять каждую следующую строку lcbtd.Text , так чтобы получилось подобие таблицы
что-то вроде такого.Сильно только прошу не смеятся.

Код


strs.Add(lcbtd.Text+lcbtd2.Text+lcbtd3.Text);

Можно ли с помощью сложения строк этого добиться?

Код


procedure TForm1.Button1Click(Sender: TObject);
var  strs:TStringList;
var
  i: Integer;
  lCmpnt3,lCmpnt2,lCmpnt:TComponent;
  lcbtd,lcbtd2:TEdit;
  lcbtd3:TComboBox;

begin

strs:= TStringList.Create;
for i := 1 to 16 do
  begin

    lCmpnt:= Form1.FindComponent('timedelay' + IntToStr(i));
    lCmpnt2:= Form1.FindComponent('timework' + IntToStr(i));
    lCmpnt3:= Form1.FindComponent('algoritm' + IntToStr(i));
    if Assigned(lCmpnt) and (lCmpnt is TEdit) and Assigned(lCmpnt2) and (lCmpnt2 is TEdit) and Assigned(lCmpnt3) and (lCmpnt3 is TComboBox) then
    begin
      lcbtd:= TEdit(lCmpnt);
      lcbtd2:= TEdit(lCmpnt2);
      lcbtd3:= TComboBox(lCmpnt3);
      strs.Add(lcbtd.Text);
      strs.Add(lcbtd2.Text);
      strs.Add(lcbtd3.Text);

     end;
  end;

  strs.SaveToFile('d:\файлпроги\index.txt');
end;

Добавлено через 8 минут и 52 секунды
А в

Код


strs.Add()

можно помещать массив строк?
Только строк я имею ввиду.

supervladislav

Дата 21.9.2012, 07:12 (ссылка)

(нет голосов)

Загрузка ...

///\\\///\\\///\\\

Профиль
Группа: Завсегдатай
Сообщений: 1771
Регистрация: 18.5.2006

Репутация: нет
Всего: -9

Всё разобрался

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »