StringGrid

← →
zep (2004-08-25 21:12) [0]

привет всем есть такой вапросс в StringGrid в ячейках вставлены объекты типа
type
PMyRec = ^TMyRec;
TMyRec = record
fp :string;
Nach :string;
IDNach:longint;
end;
как мне сохранить в фаил а затем прочитать из него эти объекты
зарание спасибо.

← →
Palladin © (2004-08-25 22:28) [1]

TFileStream

AssignFile,CloseFile,Reset,Rewrite,Read,Write,BlockRead,BlockWrite

+ F1

и аналоги из WinAPI...

Выбирай на вкус..

← →
zep (2004-08-26 15:51) [2]

помогите плиз объекты заносятся в stringGrid следующим крдом
procedure TForm1.Button7Click(Sender: TObject);
begin
new(MyRec);
MyRec^.fp := Edit1.Text;
MyRec^.Nach := ComboBox1.text;
MyRec^.IDNach := ComboBox1.itemindex;
StringGrid1.Objects[StringGrid1.col, StringGrid1.Row] := TObject(MyRec);
end;

При перерисовки StringGrid"а ячейка с объектом закрашивается зеленым.
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if StringGrid1.Objects[ACol,ARow] <> nil then
begin
if gdselected in state then
StringGrid1.Canvas.Brush.Color:=clred
else
StringGrid1.Canvas.Brush.Color:=clgreen;
StringGrid1.Canvas.FillRect(Rect);
end;
end;
Подскажите как сохранить и прочитать из файла такой стрингрид.

← →
Alex* (2004-08-26 16:02) [3]

В хелпе по командам FileOpen, FileSeek, FileRead рассмотрен подобный приемер.
Желаю удачи

← →
zep (2004-08-26 17:35) [4]

FileOpen, FileSeek, FileRead это все для StringGrid1.Cells
этоя умею, а мне надо для StringGrid1.Objects

> zep (26.08.04 17:35) [4]

Голова и руки у тебя на что? Напряги серое вещество посиди, покорпи денек-другой, покопайся в исходниках и литературе, и тогда сам напишешь нужный тебе код.

StringGrid Найти похожие ветки