VPF::ListView - Форум программистов

ZBugz

Дата 21.6.2006, 12:21 (ссылка)

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

Загрузка ...

Опытный

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

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

Всем привет smile

Имею ListView в режиме report и пять колонок
Чтоб загрузить мне нужные данные, я использую:

Код


   Sp:=TStringList.Create;
     sp.LoadFromFile(FName);
     if sp.Count>0 then begin
       DList.Clear;
      for i:=0 to sp.Count-1 do begin
        s:=sp.Strings[i];
        DList.Items.Add.Caption:=copy(s,1,pos('*\*',s)-1);
        delete(s,1,pos('*\*',s)+2);
        while pos('*\*',s)<>0 do begin
          DList.Items[DList.Items.Count-1].SubItems.add(copy(s,1,pos('*\*',s)-1));
          delete(s,1,pos('*\*',s)+2);
        end;
        DList.Items[DList.Items.Count-1].SubItems.add(s);
      end;
    end;
    Sp.Free;
  end;
 end;

Вопрос #1:
Когда я загружаю данные, мне в Caption запихивает иконку, постоянно одну. Как ее поменять иконку ?
Вопрос № 2:
Как загрузить к примеру просто набор строк из текстового файла в caption ?
Когда файл содержит к примеру:

Код


XX.ww.44.ww
ss.2222222.fffff.c

Poseidon

Дата 21.6.2006, 13:28 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Цитата(ZBugz @ 21.6.2006, 12:21

)

Когда я загружаю данные, мне в Caption запихивает иконку, постоянно одну. Как ее поменять иконку ?

http://vingrad.ru/DELPHI-DLP-000674

Цитата(ZBugz @ 21.6.2006, 12:21

)

Как загрузить к примеру просто набор строк из текстового файла в caption ?
Когда файл содержит к примеру:

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

Код


var
fstr: TStrings;
i: integer;
begin
fstr:= TStringList.Create;
fstr.LoadFromFile('C:/file.txt');
for i:= 0 to fstr.Count-1 do
ListView1.Columns.Add.Caption:=fstr.Strings[i];;

fstr.Free;
end;

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

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

ZBugz

Дата 21.6.2006, 14:59 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Poseidon @ 21.6.2006, 13:28)

Цитата(ZBugz @ 21.6.2006, 12:21

)

Когда я загружаю данные, мне в Caption запихивает иконку, постоянно одну. Как ее поменять иконку ?

http://vingrad.ru/DELPHI-DLP-000674

Цитата(ZBugz @ 21.6.2006, 12:21

)

Как загрузить к примеру просто набор строк из текстового файла в caption ?
Когда файл содержит к примеру:

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

Код


var
fstr: TStrings;
i: integer;
begin
fstr:= TStringList.Create;
fstr.LoadFromFile('C:/file.txt');
for i:= 0 to fstr.Count-1 do
ListView1.Columns.Add.Caption:=fstr.Strings[i];;

fstr.Free;
end;

Неа, я имел ввиду что строки добавились по очереди, а не колонки.

Типа:
111
222
333

Poseidon

Дата 21.6.2006, 15:25 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Код

var
fstr: TStrings;
i: integer;
begin
fstr:= TStringList.Create;
fstr.LoadFromFile('C:/file.txt');
ListView1.Columns.Add.Caption:='Из файла';
for i:= 0 to fstr.Count-1 do
ListView1.Items.Add.Caption:= fstr.Strings[i];

fstr.Free;
end;

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

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

ZBugz

Дата 21.6.2006, 15:45 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо, в точку. smile

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