Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Июн

Прочитать из txt файла в StringGrid

Posted by Chas under Delphi

получается что записывает вот так

1 2 3 4 0,8
5 6 7 8 0,615384615384615
9 10 11 12 0,571428571428571

и между ними есть пробел — как быть?

Serge_Bliznykov

procedure TForm2.ButtonLoadTextToStringGridClick(Sender: TObject);

Var I, IndexRow, col, offset, posSpace : integer;

    TS : TStringList;

    S : String;

begin

  TS := TStringList.Create;

  TS.LoadFromFile( form3.Edit1.Text );

  StringGrid1.RowCount := TS.Count + 1;

  IndexRow := 0;

  for i := 0 to TS.Count - 1 do begin

    if Trim(TS.Strings)<>'' then begin

       Inc(IndexRow);

       s := Trim(TS.Strings)+' ';

       offset := 1;

       col := 0;

       while PosEx(' ',s, offset)>0 do begin

          posSpace := PosEx(' ',s, offset);

          StringGrid1.Cells[ col, IndexRow] := copy(s, offset, posSpace - offset);
          Inc(col);

          offset := posSpace+1;

       end;

    end;

  end;

  FreeAndNil(TS);

end;