[Кодер]

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

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

Код:

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 шт из них, то выглядеть это должно примерно так:

Код:

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] не равно текущей дате(сегодняшней) то вот эти операторы работать не будут

Код:

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] не равно текущей дате(сегодняшней) то вот эти операторы работать не будут

Код:

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;

Код:

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;

[/

[Кодер]

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

Код:

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

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

[lmikle]

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

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

[Кодер]

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

[lmikle]

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