Форум: "Основная";
Текущий архив: 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.037 c