Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
ВнизПомогите побороть TListView Найти похожие ветки
← →
Tornado © (2004-04-20 13:22) [0]мне нужно запихать в TListView информацию из текстового файла. Свойство ViewStyle у TListView равен vsReport, имеются 2 столбца. Вот часть файла из которого берутся данные:
Message:
Msg#: 2236980052
Status: New
From: nov-01-vtg-pri-vyatkina at 01101-n.novgorod
Date: 13/4/04 9:53
To: nov-00-vtg-oesg-kazimirov at 01100-n.novgorod
Subject:
Size: 99209
Items: 2
Media: tf
Message:
Msg#: 401518952
Status: New
From: nov-01-vtg-pri-smolin at 01101-n.novgorod
Priority: Urgent
Date: 19/4/04 12:58
To: nov-00-vtg-osr-urjeva at 01100-n.novgorod
Subject: Оборудование
Size: 32561
Items: 2
Media: tf
и так далее, файл длинный. Мне нужно запихать в TListView в первый столбец строку которая начинается со слова "From", во второй - строку со слова "To" (записать все что идет после этих слов), вот код:
var
List : TStringList;
Stroka_1, Stroka_2: string;
i, j:integer;
begin
List := TStringList.Create;
j :=0;
try
List.LoadFromFile("mesg_z.txt");
if List.Count <> 0 then
begin
for i := 0 to List.Count - 1 do
begin
Stroka_1 := Copy(List.Strings[i], 1, 5);
Stroka_2 := Copy(List.Strings[i], 1, 3);
if Stroka_1 = "From:" then begin
lstView.Items.Add;
lstView..Items.Item[j].Caption := Copy(List.Strings[i], 7, 100);
if Stroka_2 = "To:" then begin
lstView.Items.Item[j].SubItems.Add(Copy(List.Strings[i], 5, 100));
end;
j := j +1;
end;
finally
List.Free;
end;
Этот код заполняет только первый столбец, т.е. выбирает данные после слова "From", а второй столбец остается пустым. Подскажите в чем дело или может как-нить по lgeujve можно сделать? Спасибо.
← →
Tornado © (2004-04-20 13:22) [0]мне нужно запихать в TListView информацию из текстового файла. Свойство ViewStyle у TListView равен vsReport, имеются 2 столбца. Вот часть файла из которого берутся данные:
Message:
Msg#: 2236980052
Status: New
From: nov-01-vtg-pri-vyatkina at 01101-n.novgorod
Date: 13/4/04 9:53
To: nov-00-vtg-oesg-kazimirov at 01100-n.novgorod
Subject:
Size: 99209
Items: 2
Media: tf
Message:
Msg#: 401518952
Status: New
From: nov-01-vtg-pri-smolin at 01101-n.novgorod
Priority: Urgent
Date: 19/4/04 12:58
To: nov-00-vtg-osr-urjeva at 01100-n.novgorod
Subject: Оборудование
Size: 32561
Items: 2
Media: tf
и так далее, файл длинный. Мне нужно запихать в TListView в первый столбец строку которая начинается со слова "From", во второй - строку со слова "To" (записать все что идет после этих слов), вот код:
var
List : TStringList;
Stroka_1, Stroka_2: string;
i, j:integer;
begin
List := TStringList.Create;
j :=0;
try
List.LoadFromFile("mesg_z.txt");
if List.Count <> 0 then
begin
for i := 0 to List.Count - 1 do
begin
Stroka_1 := Copy(List.Strings[i], 1, 5);
Stroka_2 := Copy(List.Strings[i], 1, 3);
if Stroka_1 = "From:" then begin
lstView.Items.Add;
lstView..Items.Item[j].Caption := Copy(List.Strings[i], 7, 100);
if Stroka_2 = "To:" then begin
lstView.Items.Item[j].SubItems.Add(Copy(List.Strings[i], 5, 100));
end;
j := j +1;
end;
finally
List.Free;
end;
Этот код заполняет только первый столбец, т.е. выбирает данные после слова "From", а второй столбец остается пустым. Подскажите в чем дело или может как-нить по lgeujve можно сделать? Спасибо.
← →
Григорьев Антон (2004-04-20 13:30) [1]Так у вас же сравнение
if Stroka_2 = "To:"
лежит внутри блокаif Stroka_1 = "From:" then
. Надо вынести наружу. А вотj := j +1;
внести внутрь. А вообще, в вашем коде begin"ов больше, чем end"ов - он просто не откомпилируется.
← →
Григорьев Антон (2004-04-20 13:30) [1]Так у вас же сравнение
if Stroka_2 = "To:"
лежит внутри блокаif Stroka_1 = "From:" then
. Надо вынести наружу. А вотj := j +1;
внести внутрь. А вообще, в вашем коде begin"ов больше, чем end"ов - он просто не откомпилируется.
← →
Tornado © (2004-04-20 13:59) [2]>>> Григорьев Антон (20.04.04 13:30) [1]
да я торопился просто, где то упустил видимо, компилится, спасибо поборол :)
← →
Tornado © (2004-04-20 13:59) [2]>>> Григорьев Антон (20.04.04 13:30) [1]
да я торопился просто, где то упустил видимо, компилится, спасибо поборол :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.04 c