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

[=master=]

ок, определили и чего? зачем определяли?

[WhiskasTM]

Во придумал:

1.txt:

211.111.111.111 test.com #blahblahblah
hsadkjasdhk hasdhakj 123123.123123 $333334
xxxxx3 111111.11.1.1 yhyhyhyhy.123123 $hhhhhhhh
ololol mwuhah

uses
 StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
f:TextFile;
s:string;
SL:TStringList;
i,posdeciminator,lastpos,Column,Row:integer;
begin
 SL:=TStringList.Create;
 SL.LoadFromFile('D:\1.txt');

for i := 0 to SL.Count-1 do
begin
Column:=0;
posdeciminator:=-1;
lastpos:=0;

while posdeciminator <> 0 do
begin
 posdeciminator:=PosEx(' ',SL[i],lastpos+1);
 if posdeciminator = 0 then
  begin
    inc(Column,1);
    StringGrid1.Cells[Column,i]:=Copy(SL[i],lastpos,length(SL[i])-lastpos+1);
  end;
 inc(Column,1);
 StringGrid1.Cells[Column,i]:=Copy(SL[i],lastpos,posdeciminator-lastpos);
 lastpos:=posdeciminator;
end;

end;
end;

end.

Правда это рабочее если полей хватает в стринггриде, иначе тут посложнее должно быть с RowCount+1 и т.п.

[Lier]

WhiskasTM, спасибо, но пока я разберусь с тем как это работает)))
Вот немного изменил свой код

Var
    a : array[0..MAX_PATH] of char;
    i:integer;
    s:string;
    f:boolean;
    t:textfile;
begin
GetWindowsDirectory(a, sizeof(a));
Dir:=StrPas(a)+'\System32\drivers\etc\hosts';
assignfile(t,Dir);
reset(t);
HS.Cols[0].LoadFromFile(Dir);
for i:=HS.RowCount-1 downto 1 do
HS.Rows[i].Text:=HS.Rows[i-1].Text ;
HS.Cells[0,0]:='IP';
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;

Так уже лучше или всё ещё...?

[Lier]

И ещё, код раньше работал, теперь же нет. Запись из 3edit'ов stringgrid

procedure TForm1.Button1Click(Sender: TObject);
var n: longint;
begin
HS.RowCount:=HS.RowCount+1;
HS.Rows[HS.RowCount-1].Clear;
n:=HS.RowCount-1; 
HS.Cells[0,n]:=Edit1.Text;
HS.Cells[1,n]:=Edit2.Text;
HS.Cells[2,n]:=Edit3.Text;
end;

В чем проблема?

[WhiskasTM]

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

И ещё, код раньше работал, теперь же нет. Запись из 3edit'ов stringgrid
В чем проблема?

Все там 100% рабочее:

[=master=]

или всё ещё...?

Всё еще...

assignfile(t,Dir);
reset(t);

вот это для чего?

[ProgMaster]

procedure ReadTxtToSG(TxtFile: String);
var
F: File;
C: Char;
Str: String;
I,Y: Integer;
begin
I:=0;
Y:=0;
Str:='';
AssignFile(F,TxtFile);
Reset(F);
while not Eof(F)
begin
    Read(F,C);
    if C <> #20 then Str = Str +C else 
    begin
        StringGrid1.Cells[I,Y]:=Str;
        Str:='';
        Inc(Y);
        if Y = 3 then 
        begin
            Y = 0;
            Inc(I);
        end;
     end;
end;

[antikiler_]

var

  i, j, w : integer;
  ts: TStringList;
  od: TOpenDialog;
begin
  ts := TStringList.Create;
  od := TOpenDialog.Create(nil);
  ts.Delimiter := ' ';                    // задаем разделитель пробел
  if od.Execute then
    ts.LoadFromFile(od.FileName);
  StringGrid1.RowCount := ts.Count + 1;   // устанавливаем количество сток в таблице
  ts.DelimitedText := ts.Text;
  w := 0;
  try
    for i := 0 to (ts.Count div 3) - 1 do      // тройка - количество столбцов для заполнения
      for j := 1 to 3 do
        begin
          StringGrid1.Cells[j, i + 1] := ts.Strings[w];
          inc(w);
        end;
  finally
    od.Free;
    ts.Free
  end;
end;