VPF::Как это сделать! - Форум программистов

Pariah

Дата 26.4.2006, 17:14 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 25.1.2006

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

Дарова народ!
Подскажите исходный код как сделать так чтобы когда открывался 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 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111

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

Код


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 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 95
Регистрация: 25.1.2006

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

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

Это сообщение отредактировал(а) Pariah - 27.4.2006, 14:33

Poseidon

Дата 27.4.2006, 17:44 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(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;

Это сообщение отредактировал(а) Poseidon - 27.4.2006, 17:45

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

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