Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Скомпоновать в одну строку

Автор: supervladislav 21.9.2012, 04:42

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

Мне нужно чтобы информация сохранилась в файл из трёх свойств 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

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