данные из record в -> stringGrid -> файл

[voolf]

есть у меня запись:

Type
TStr=record


pip,posada,xaracter,zarplata:string[20];
adresa:string[10];
tel:string[15];
Nom:string[3];

Str:TStr;

которая заполняется через StringGrid и которая должна записываться в файл, но
не могу записать все строки(понял только как записать 1 строку), как это можно сделать ?

AssignFile(F,'test.txt');
Rewrite(F); p:=1;

begin

Str.Nom:=StringGrid1.Cells[0,p];
Str.pip:=StringGrid1.Cells[1,p];
Str.adresa:=StringGrid1.Cells[2,p];
Str.tel:=StringGrid1.Cells[3,p];
Str.posada:=StringGrid1.Cells[4,p];
Str.xaracter:=StringGrid1.Cells[5,p];
Str.zarplata:=StringGrid1.Cells[6,p];

Write(F,Str);
end;


CloseFile(F);
end;

[digitalis]

Дык и надо файл определить не как текстовый, а как File of TStr, назвав его, к примеру, File.dat А можно для записи все поля структуры объединить в одну строку, разделив их не встречающимся в полях символом-разделителем, например, / . Тогда можно будет хранить и как текстовый; кстати, при необходимости его можно было бы редактировать обычным Блокнотом. Но при считывании строку придется распарсить и "разогнать" по нужным полям.
TmpStr := Str.Nom + '/' + Str.pip + '/' + .....

[voolf]

об типизированных файлах я знаю(специально изменил на txt, не мог посмотреть dat)
может я плохо обьяснил или вообще настолько отупел:
у меня есть несколько колонок(nom,pop,adresa,tel) я не могу эти колонки сохранить в файл.Точнее могу, но для каждой ячейки нужно писать № столбца и строки.
например
r.Nom:=StringGrid1.Cells[1,0] и это только для 1 ячейки, А у меня длинна колонок будет большая...
может как-то в цикл загнать? добавлять 1?
r.Nom:=StringGrid1.Cells[1,i] где і строки, которые идут последовательно в столбце

[voolf]

спасибо за помощь, даже рештл

procedure TForm1.Button1Click(Sender: TObject);
var

i,j:integer;

begin


AssignFile(F,'test.txt');
Rewrite(F);
For i:=1 to StringGrid1.RowCount-1 do
begin
//ShowMessage(StringGrid1.Cells[j,i]);
{Str.Nom:=StringGrid1.Cells[1,1];}

Str.adresa:=StringGrid1.Cells[0,i];
Str.tel:=StringGrid1.Cells[1,i];
Str.posada:=StringGrid1.Cells[2,i];
Str.xaracter:=StringGrid1.Cells[3,i];
Str.zarplata:=StringGrid1.Cells[4,i];

Write(F,Str);
end;


CloseFile(F);
ShowMessage ('Çàïèñàíî');

end;


procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;

begin



AssignFile(F,'test.txt');
Reset(F);
StringGrid1.RowCount := FileSize(f)+1;
For i:=1 to StringGrid1.RowCount-1 do
begin
Read(F,Str);

StringGrid1.Cells[0,i]:=Str.adresa;
StringGrid1.Cells[1,i]:=Str.tel;
StringGrid1.Cells[2,i]:=Str.posada;
StringGrid1.Cells[3,i]:=Str.xaracter;
StringGrid1.Cells[4,i]:=Str.zarplata;

end;


CloseFile(F);
ShowMessage ('Ïðî÷èòàíî');
end;

ждите, еще тупые вопросы будут

[northener]

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

об типизированных файлах я знаю(специально изменил на txt, не мог посмотреть dat)

Поставьте себе например Total Commander и смотрите любые файлы. В любом из 5 вариантов. (Пять вариантов это в версии 8.52).