[Кодер]

Короч суть в чем:

Есть текстовый файл в нём 16 строк, все их нужно забить в компонент.
Написал такую процедурку:

Код:

1 2 3 4 5 6 7 8 9 10 11

k:=-4; for i:=0 to f.Count-1 do begin k:=k+4; with frm_ofice.nlist.Items.Add do       begin         Caption:=f.Strings[k];         SubItems.Add(f.Strings[k+1]);         SubItems.Add(f.Strings[k+2]);         SubItems.Add(f.Strings[k+3]);       end; end;

Компилятор ругается, типа List Index bounds of 16 или чтото вроде..
Помогите плз!

[lmikle]

посчтиай сам, к элементу с каким индексом ты обращаешься при последнем проходе цикла

Если у тебя в файле 16 строк и ты помещаешь в одну строку сразу 4 шт из них, то выглядеть это должно примерно так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm1.Load(AFileName: String); var   I : Integer;   SL : TStringList; begin   SL := TStringList.Create;   Try     SL.LoadFromFile(AFileName);     If (SL.Count Mod 4) <> 0 Then       Raise Exception.Create('Кол-во данных не соответсвует. Должно быть целое число по 4.');     I := 0;     While I < SL.Count Do       With frm_ofice.nlist.Items.Add Do         Begin           Caption:=f.Strings[i];           SubItems.Add(f.Strings[I+1]);           SubItems.Add(f.Strings[I+2]);           SubItems.Add(f.Strings[I+3]);           Inc(I,4);         End;   Finally     SL.Free;   End; end;

[Кодер]

Вот структура файла:

Дата1
Время1
Описание1
Статус1
Дата2
Время2
Описание2
Статус2 и тд.. до Статус4

[Кодер]

Огромное спасибо!

А в чом проблема была?
И как можно сделать так чтобы если f.strings[i] не равно текущей дате(сегодняшней) то вот эти операторы работать не будут

Код:

1 2 3 4 5 6 7 8

With frm_ofice.nlist.Items.Add Do         Begin           Caption:=f.Strings[i];           SubItems.Add(f.Strings[I+1]);           SubItems.Add(f.Strings[I+2]);           SubItems.Add(f.Strings[I+3]);           Inc(I,4);         End;

[lmikle]

Сообщение от Неподарок

Огромное спасибо!

А в чом проблема была?
И как можно сделать так чтобы если f.strings[i] не равно текущей дате(сегодняшней) то вот эти операторы работать не будут

Код:

Код:

1 2 3 4 5 6 7 8 9 10 11

With frm_ofice.nlist.Items.Add Do         Begin           If StrToDate(f.String[i]) = Date Then            Begin             Caption:=f.Strings[i];             SubItems.Add(f.Strings[I+1]);             SubItems.Add(f.Strings[I+2]);             SubItems.Add(f.Strings[I+3]);            End;           Inc(I,4);         End;

[/

[Кодер]

Ругается на это

Код:

1	If StrToDate(f.String[i]) = Date Then

Пишет:Identifier expected but 'STRING' found

[lmikle]

Strings естественно.

Сами думать бум, или как?

[Кодер]

Котелок не варит..Не спал много.

[lmikle]

ну ты тогда много напрограммируешь