Ошибка в цикле

[Oleg Romanchuk]

for i:=0 to f.Count-1 do
  begin
    f.DelimitedText:=f.Strings[i];
    Memo1.Lines.Add(f[0]);
  end;

как сделать более правильный цикл? тут что-то не правильно, не получается, выдает ошибку!

[k1r1ch]

Какая ошибка и что такое f?

[Oleg Romanchuk]

Сообщение от k1r1ch

Какая ошибка и что такое f?

Project Prog.exe raised exception class EStringListError with message 'List index out of bounds(2)'. Process stopped. Use Step or Run to contionue.

Весь код:

procedure TForm1.sButton1Click(Sender: TObject);
var
  f:TStringList;
  Str:String;
  i:integer;
begin
  f:=TStringList.Create();
  f.LoadFromFile(pathedit.Text);

for i:=0 to f.Count-1 do
  begin
    f.DelimitedText:=f.Strings[i];
    Memo1.Lines.Add(f[0]);
  end;
  f.Free;

Помогите организовать правильный цикл(((

[dr.Chas]

  for i:=0 to f.Count-1 do
  begin
    //f.DelimitedText:=f.Strings[i];    
    Memo1.Lines.Add(f[i]);
  end;

ещё

procedure TForm1.sButton1Click(Sender: TObject);
var
  f:TStringList;
  Str:String;
  i:integer;
begin
  f:=TStringList.Create();
  f.LoadFromFile(pathedit.Text);
  Memo1.Lines.Add(f.DelimitedText);
  f.Free;
end;

Напишите что вы хотите сделать.

[Oleg Romanchuk]

procedure TForm1.sButton1Click(Sender: TObject);
var
  f:TStringList;
begin
  f:=TStringList.Create();
  f.LoadFromFile(pathedit.Text);
  f.DelimitedText:=f.Strings[0];
  Memo1.Lines.Add(f[0]);
  f.Free;

Из текстового файла имя которого берется из PathEdit есть много строк одного типа, нужно взять от туда только определенные данные в моем случае эта дата, которая идет с начала. У меня получилось взять данные только из первой строки, а как сделать цикл?

[dr.Chas]

var Fail:TextFile;
     s: string;
begin
      AssignFile(Fail,pathedit.Text);
      Reset(fail);
      While not eof(fail) do
      begin
        Readln(Fail,s);
        Memo1.Lines.Add(s);
      end;
      closeFile(fail);
end;

Ну а в цикле ищите вашу дату. Просто цикл не решит вашей проблемы.

[Oleg Romanchuk]

Сообщение от dr.Chas

Ну а в цикле ищите вашу дату. Просто цикл не решит вашей проблемы.

Спасибо конечно, но это немного не то что надо!
Так у меня полалось по другому:

procedure TForm1.sButton1Click(Sender: TObject);
var
  f:TStrings;
  i:Integer;
begin
  f:=TStringList.Create;
  f.LoadFromFile(PathEdit.Text);

  for i:=0 to f.Count-1 do
    begin
      f.Strings[i];
      Memo1.Lines.Add(F[0]);
    end;

  f.Free;

Тут вставляет все строки целиком, а нужно разделить строку на 5 частей и каждую часть скажем в отдельный мемо!
Сам уже запутался

[dr.Chas]

Сообщение от Oleg Romanchuk

Тут вставляет все строки целиком, а нужно разделить строку на 5 частей и каждую часть скажем в отдельный мемо!
Сам уже запутался

Не только вы запутались Вы всё время говорите урывками. Если не можете объяснить (и такое бывает), попробуйте "на пальцах". Опять по вашему посту не понятно, по какому принципу нужно разбить строку и передать её в мемо. Если просто на 5 ровных частей то пользуйтесь функцией copy

Сначала вы писали про дату. И так в том коде считывается файл по строкам, и там после чтения до передачи его в мемо, нужно организовать проверку на ваше условие. Чтобы найти дату нужно воспользоваться функцией pos, чтобы взять её из строки copy. Если же заранее не известно какая у вас там дата, то нужно делать по другому.

[Oleg Romanchuk]

Сообщение от dr.Chas

Не только вы запутались Вы всё время говорите урывками. Если не можете объяснить (и такое бывает), попробуйте "на пальцах". Опять по вашему посту не понятно, по какому принципу нужно разбить строку и передать её в мемо. Если просто на 5 ровных частей то пользуйтесь функцией copy

Сначала вы писали про дату. И так в том коде считывается файл по строкам, и там после чтения до передачи его в мемо, нужно организовать проверку на ваше условие. Чтобы найти дату нужно воспользоваться функцией pos, чтобы взять её из строки copy. Если же заранее не известно какая у вас там дата, то нужно делать по другому.

Есть файл: текстовый. он содержет строки примерно такого типа:
[00.00.2000 00:00:00] Сокет 0000 прибор 0000 принято 000 б.

Если быть точнее хочу этот текстовый файл в БД засунуть, но пока для упрощения и мемо пойдет, вообщем нужно разбить эту строку на 5 слов, и записать в 5 разных мемо, я показывал на примере даты. Номера могут по численности меняться, например сокет 1452, со временем может стать 14533 поэтому поиск не пойдет((

С функцие f.DelimitedText - которой можно разбить строку, цикл не получается сделать), может не циклом а как то по другому?

[Serge_Bliznykov]

ну, так как я видел ваш вопрос про парсинг строки, то я понимаю, о чём идёт речь...
вот пример кода (сразу могу сказать, он не очень "прямой", но должен делать то, что Вы хотите:

{ portion copyrights Stilet }
procedure TForm1.sButton1Click(Sender: TObject);
var
  f, s :TStringList;
  i:Integer;
begin
  f:=TStringList.Create;
  f.LoadFromFile(PathEdit.Text);

  {временный TStringList - для разбора текста}
  s:=TStringList.Create;

  for i:=0 to f.Count-1 do
    begin
       s.DelimitedText:= f.Strings[i];
      Memo1.Append('Date '+s[0]);
      Memo1.Append('time '+s[1]);
      Memo1.Append('Socket '+s[3]);
      Memo1.Append('Device '+s[5]);
      Memo1.Append('Get '+s[7]);
    end;
  FreeAndNil(s);
  FreeAndNil(f);

p.s. разумеется в Memo1 можно не добавлять или добавлять по другому или вообще в одну строчку собрать - это просто показательно, как получить доступ к элементам строки!!