Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

StringGrid

zep © (2004-08-25 21:12:00)
привет всем есть такой вапросс в StringGrid в ячейках вставлены объекты типа
type
PMyRec = ^TMyRec;
TMyRec = record
fp :string;
Nach :string;
IDNach:longint;
end;
как мне сохранить в фаил а затем прочитать из него эти объекты
зарание спасибо.

Amoeba (2004-08-26 17:40:00) [1]

> zep (26.08.04 17:35) [4]

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

zep (2004-08-26 17:35:00) [2]
FileOpen, FileSeek, FileRead это все для StringGrid1.Cells
этоя умею, а мне надо для StringGrid1.Objects

Alex* (2004-08-26 16:02:00) [3]
В хелпе по командам FileOpen, FileSeek, FileRead рассмотрен подобный приемер.
Желаю удачи

zep (2004-08-26 15:51:00) [4]
помогите плиз объекты заносятся в 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;
Подскажите как сохранить и прочитать из файла такой стрингрид.

Palladin (2004-08-25 22:28:00) [5]
TFileStream

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

+ F1

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

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »