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

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

Форум программистов > Delphi: Общие вопросы > Как это сделать!

Автор: Pariah 26.4.2006, 17:14

Дарова народ!
Подскажите исходный код как сделать так чтобы когда открывался TabSheet2 считавались данные items’a из ListView’a и забивались в Edit.Text!
Вот что получилось у меня!

Код


Procedure Form1.PageControl.TabSheet2.Show (Sender: TObject;); 
var
ListItem : TlistItem ;
LE1 , LE2 , LE3 , LE4 :string  ;
begin
Form1.PageControl.TabSheet2.Show ;
LE1 := ListItem.Caption ;
LE2 := ListItem.SubItems.Text ;
LE3 := ListItem.SubItems.Text;
LE4 := ListItem.SubItems.Text;
LabeledEdit5.Text := LE1 ;
LabeledEdit6.Text := LE2 ;
LabeledEdit7.Text := LE3 ;
LabeledEdit8.Text := LE4 ;
end;

Автор: Yanis 26.4.2006, 17:42

Если я правильно понял...

Код


var
  i, j: Integer;
  s: string;
begin
  for i := 0 to ListView1.Items.Count - 1 do
    begin
      s := s + ListView1.Items.Item[i].Caption+ '.';
      for j := 0 to ListView1.Items.Item[i].SubItems.Count-1 do
        s := s + ListView1.Items.Item[i].SubItems.Strings[j] + '.';
      if s[Length(s)] = '.' then Delete(s, Length(s), 1);
      s := s + ';';
    end;
  Edit1.Text := s;
end;

Автор: Pariah 27.4.2006, 11:52

да ты правильно понял!
только код работает если вызвать процедуру ButtonClick а мне надо чтоб при открытии TabSheet2 smile

Автор: Poseidon 27.4.2006, 17:44

Цитата(Pariah @ 27.4.2006, 11:52

)

а мне надо чтоб при открытии TabSheet2

Ну так и пиши этот код в TabSheet2Show

Код

procedure TForm1.TabSheet2Show(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  for i := 0 to ListView1.Items.Count - 1 do
    begin
      s := s + ListView1.Items.Item[i].Caption+ '.';
      for j := 0 to ListView1.Items.Item[i].SubItems.Count-1 do
        s := s + ListView1.Items.Item[i].SubItems.Strings[j] + '.';
      if s[Length(s)] = '.' then Delete(s, Length(s), 1);
      s := s + ';';
    end;
  Edit1.Text := s;
end;