Einzelnen Beitrag anzeigen

perle

Registriert seit: 8. Apr 2004
183 Beiträge
 
Delphi 7 Enterprise
 
#14

Re: Suche Beispiel, um Zeiger besser zu verstehen

  Alt 18. Jan 2005, 10:41
ich habe eine ganz kleine Frage zu Motzis Tutorial, dafür will ich nicht extra nen Thread aufmachen, da das vielleicht auch ganz interessant für den Themenstartet sein könnte.....

Zum erzeugen der Forms benutzt Motzi folgenden Code :

Delphi-Quellcode:
procedure TMainForm.CreateButtonClick(Sender: TObject);
begin
  GetMem(FormP, SizeOf(TMultipleForm)); // --> reserviert an der Adresse von FormP den Speicher für die Form
  FormP^ := TMultipleForm.Create(Self); // --> erzeugt die Form
  FormP^.Caption := FormP^.Caption + IntToStr(Liste.Items.Count + 1);
  FormP^.Label1.Caption := LabelText.Text;
  FormP^.OnHide := ListeClick; // --> beim verstecken des Fensters muss ja die Button-Aufschrift aktualisiert werden...
  FormListe.Add(FormP); // --> fügt den Pointer zur Liste hinzu
  Liste.Items.Add('Form' + IntToStr(Liste.Items.Count + 1));
end;
mir stellte sich dann die Frage ob man das ganze Konzept nicht auch folgendermaßen machen könnte :

Delphi-Quellcode:
procedure TMainForm.CreateButtonClick(Sender: TObject);
begin
  FormListe.Add(TMultipleForm.Create(Application));
  TMultipleForm(FormListe[FormListe.Count - 1]).Caption := 'Form' + IntToStr(Liste.Items.Count + 1);
  TMultipleForm(FormListe[FormListe.Count - 1]).Label1.Caption := LabelText.Text;
[...]
end;

usw.... beim Testen hat das so eigetnlich funktioniert und logisch wärs doch eigentlich auch , da ein Typ doch eigentlich auch nur ein Pointer ist !?

Wo lägen dort Vor- bzw. Nachteile
und wofür muss man explizit das GetMem machen? Was passiert wenn man es weg lässt?

Fragen über Fragen, dankbar für Antworten
  Mit Zitat antworten Zitat