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

[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?

[MEluZíNa]

Stream.Write(promenna, pocet_znaku_v_stringu*sizeof(char));

[Chuck]

Stream.Write(promenna, pocet_znaku_v_stringu*sizeof(char));

Tak jsem to zkusel a nešlo mi to a nakonec jsem našel že to ma byt asi takto

Soubor.Write(String[1],Length(String));

Sice nechápu co znamená ten index, ale asi to bude něco s polem... Každopádně to ale funguje. Teď nemůžu přijít na to jak mám odřádkovat na dalsí řádek... Seek a positition me posuvaji po radku