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

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

Форум программистов > Delphi: Общие вопросы > ListView

Автор: ZBugz 21.6.2006, 12:21

Всем привет 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

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

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

Код

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

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