[Delphi] Nepřímé připojení dat k objektu

[Anduril]

Pokud tuto metodu das i do tridy TPrvek a v tride TPotomekX ji spravne pretizis podle potreby, staci pak, kdyz budes volat vypisSe() na TPrvek..
Jinak verim, ze i deplhi ma nejaky operator "instanceof" nebo neco takoveho, cim zjistis, jestli je dany objekt instanci nejake tridy.

[Chuck]

Tu metodu VypisSe mam dát jako abstraktni? Nebo mám v TPrvek vytvořit tělo metody VypisSe(Prvek:TPrvek), kde zjistim(jetli to teda nějak jde) z jaké třídy je vytvořen parametr metody a podle toho přetypuji parametr na správný typ u kterého pak vyvolám metodu VypisSe?

[Anduril]

tak v podstate to jde tak i tak. Prvni zpusob bude lepsi.

[Chuck]

tak v podstate to jde tak i tak. Prvni zpusob bude lepsi.

pořádně nechápu užití abstraktní a virtuálni metody. Mám to zatím takto:
TPrvek:
interface
constructor Init;
procedure VypisSe; Virtual; Abstract;

implementation
constructor TPrvek.init;
begin
Naslednik:=nil;
end;

TPotomek1:
procedure VypisSe; Override;
begin
Edit.Text:=Atribut; //Atribut je string
end;

TPotomek2:
procedure VypisSe; Override;
begin
Edit.Text:=Atribut; //Atribut je string
end;

Takhle to nikdy nemůže fungovat že?

[Chuck]

Ejhle, ono to více méně takto funguje Nevim jak se mi to podarilo, ale je to tak. Ani jsem nemusel nic přetypovávat...

[Chuck]

Nebudu zakládat nový thread tak to hodim sem. Ještě potřebuju vytvořit metodu v třídě TPrvek aby vypisovala atributy do souboru. Na netu jsem něco nastudoval. Když je atribut typu string tak se mi do souboru uloží nesmyslný znaky. Pokud je char, tak se to uloží OK.

stream je vytvoren takto

Soubor:=TFileStream.Create(SaveDialog.FileName,fmCreate);

a metoda

procedure TSpravceData.Akce(Soubor:TFileStream);
begin
  Soubor.Write(Atribut,SizeOf(Atribut));
end;

[Chuck]

Nevíte tady jak do souboru zapsat string pomocí streamu?