Помогите побороть 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 можно сделать? Спасибо.

← →
Григорьев Антон (2004-04-20 13:30) [1]

Так у вас же сравнение if Stroka_2 = "To:" лежит внутри блока if Stroka_1 = "From:" then . Надо вынести наружу. А вот j := j +1; внести внутрь. А вообще, в вашем коде begin"ов больше, чем end"ов - он просто не откомпилируется.

>>> Григорьев Антон (20.04.04 13:30) [1]

да я торопился просто, где то упустил видимо, компилится, спасибо поборол :)

Помогите побороть TListView Найти похожие ветки