Скачать: CL | DM;

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

---

← →
Amoeba ©   (2004-08-26 17:40) [5]

> zep   (26.08.04 17:35) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c