чтение StringGrid из файла

[emirk1]

Подскажите срочно пожалуйста, вот процедура сохранения значений StringGrid в текстовый файл построчно и красиво. Как будет выглядеть процедура загрузки из файла в stringgrid?

procedure TForm1.Button4Click(Sender: TObject);
var
   f: TextFile;
  i,j: integer;
begin
AssignFile(f,'1.txt'); Rewrite(f);
WriteLn(f, StringGrid1.RowCount-1, ' ', StringGrid1.ColCount-1);
for i:=1 to StringGrid1.RowCount-1 do
begin
for j:=1 to StringGrid1.ColCount-1 do
begin
write(f,stringgrid1.Cells[j,i]);
if j < StringGrid1.ColCount then write(f,' ');
end;
writeln(f);
end;
   CloseFile(f);
end;

[Stilet]

Примерно так:

var
   f: TextFile;
  i,j: integer;
s:string;
begin
AssignFile(f,'1.txt'); Reset(f);
readLn(f, i,j);
stringgrid.RowCount:=i;
stringgrid.ColCount:=j;
for i:=1 to StringGrid1.RowCount-1 do
begin
for j:=1 to StringGrid1.ColCount-1 do
begin
read(f,s);stringgrid1.Cells[j,i]):=s;
end;
readln(f);
end;
   CloseFile(f);
end;

[emirk1]

procedure TForm1.Button3Click(Sender: TObject);
var
   f: TextFile;
  i,j: integer;
s:string;
begin
AssignFile(f,'1.txt'); Reset(f);
readLn(f, i,j);
stringgrid1.RowCount:=i;
stringgrid1.ColCount:=j;
for i:=1 to StringGrid1.RowCount-1 do
begin
for j:=1 to StringGrid1.ColCount-1 do
begin
read(f,s);stringgrid1.Cells[j,i]:=s;
end;
readln(f);
end;
   CloseFile(f);
end;

забивает всё в один столбец. читает правильно, но все символы в одном столбце, по столбцам не разбивает

[emirk1]

записал вот так вот:

а считал вот так:


Переменная s должна быть другого типа? не string. какого? тк не читает правильно.

[Stilet]

Так пойдет?:

var
   f: TextFile;
  i,j: integer;
 s:string;
begin
AssignFile(f,ExtractFilePath(paramstr(0))+'file1.txt'); Reset(f);
readLn(f, i,j);
stringgrid1.RowCount:=i;
stringgrid1.ColCount:=j;
for i:=0 to StringGrid1.RowCount-1 do
begin
 readln(f,s);
 StringGrid1.Rows[i].Delimiter:=' ';
 StringGrid1.Rows[i].DelimitedText:=s;
end;
   CloseFile(f);
end;

[emirk1]

вот че творит.

а в предыдущем коде надо типа вместо string другой тип задать и будет работать. догнать не могу.

[Stilet]

emirk1

во-первых. Вместо ого чтоб картинки пихать лучеб текст вписал.
Во-вторых. а надо то как?

[SERG1980]

Посмотрите этот вариант

[LelikBolik]

Хоть тема и была создана давно все равно хочется сказать большое спасибо! Очень полезная информация