Открытие файла в StringGrid

[Lier]

Добрый вечер. Есть объект StringList из 3 столбцов. Фото прилагается. Есть файл, например 1.txt. Как его открыть так, чтобы до первого пробела текст записался в первую колонку IP, до второго пробела в Сайт и таким же макаром в третий?


Я новичок и если вы просто скажите как такое осуществить, не думаю, что до меня дойдетБуду рад, если кто напишет кусочек кода.

[WhiskasTM]

мдяя, вот что бывает, если вообще не работать со строками, полчаса пыхтеть, зато довооольный

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  Vcl.Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
{I-}
procedure TForm1.Button1Click(Sender: TObject);
var
f:TextFile;
s,s1:string;
letter:string;
i,Column:integer;
begin
 AssignFile(f,'d:\1.txt');
 Reset(f);
 ReadLn(f,s1);
Column:=0;

for i := 1 to length(s1)+1 do
begin
letter:=Copy(s1,i,1);
if ((letter = ' ') or (letter = '')) then
begin
 inc(Column,1);
 StringGrid1.Cells[Column,0]:=s;
 s:='';
end
 else
 begin
  s:=s+letter;
 end;
end;
end;

end.

[Lier]

Спасибо, приду домой, попробую!

[Serge_Bliznykov]

через Pos (PoxEx) и Copy подобные задачи парсинга решаются обычно проще и быстрее.

[Lier]

WhiskasTM, спасибо, всё работает, но только для первой строки, если в файле 2 таких строчки, в стринг грид идет только первая.

[Lier]

Может кому пригодится, вот как решается задачка:

procedure TForm1.FormCreate(Sender: TObject);
Var
    n,i:integer;
    s:string;
    f:boolean;
    t:textfile;
begin
assignfile(t,'файл');
reset(t);
n:=0;
while not eof(t) do
 begin
  readln(t,s);
  n:=n+1;
 end;
HS.RowCount:=n+1;
HS.Cols[0].LoadFromFile('файл');
for i:=HS.RowCount-1 downto 1 do
HS.Rows[i].Text:=HS.Rows[i-1].Text ;
HS.Cells[0,0]:='текст';
HS.Cells[1,0]:='текст';
HS.Cells[2,0]:='текст';
for i:=1 to HS.RowCount-1 do
 begin
  HS.Rows[i].Delimiter:=' ';
  HS.Rows[i].DelimitedText:=HS.Cells[0,i];
 end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Может кому пригодится, вот как решается задачка:

то, что Вы написали - это же кошмарная жуть...

не, я вполне допускаю, что это всё будет работать, но только за то, что Вы сначала текстовый файл построчно читаете, а потом его грузите в StringList - это уже само по себе шокирует...
Вас спасает только то, что текстовый файл, судя по всему, очень небольшой.

если есть желание, то я (или другой форумчанин, который прочитает данную тему) могу набросать примерчик кода с однократной загрузкой файла...
А если нет (и ваш код Вас устраивает) - то дело Хозяйское..

[Lier]

Буду только рад, я повторю, что я ещё новичок и учусь на примерах.

[=master=]

Так на своем примере и учитесь, и в первую очередь скажите, цик while - он что делает, и зачем нужен.

[Lier]

Ну, здесь while определяет сколько записей в файле или я ошибаюсь? Буду рад, если напишите более правильный на Ваш взгляд код