der code war eigentlich nur als beispiel gedacht
"ListBox1" funktioniert ja nur, wenn du auf deiner Form auch eine ListBox mit dem namen ListBox1 hast. Dazu kommt noch, dass ich 1) die funktionen nicht getestet habe und das aus dem Kopf heraus geschrieben habe (sollte allerdings funktionieren) und 2) müsstest du die Funktionen ausgabe() und eingabe() auch noch in dein Formobjekt mit einbinden.
z.b.:
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TInfoObj =
class(TObject)
private
FNachname:
string;
published
property Nachname:
string
read FNachname
write FNachname;
end;
type
TForm1 =
class(TForm)
ListBox1: TListBox;
procedure eingabe(Vorname,Nachname:
string);
procedure Ausgabe;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.eingabe(Vorname,Nachname:
string);
var
Eintrag: TInfoObj;
begin
Eintrag := TInfoObj.Create;
Eintrag.Nachname := Nachname;
ListBox1.Items.AddObject(Vorname,Eintrag);
end;
procedure TForm1.ausgabe;
var
Eintrag: TInfoObj;
i: integer;
begin
for i := 0
to ListBox1.Count -1
do
begin
Eintrag := TInfoObj(ListBox1.Items.Objects[i]);
showmessage('
Vorname: '+ListBox1.Items.Strings[i]+'
Nachname: '+Eintrag.Nachname);
end;
end;
end.
hier fehlt natürlich noch irgendwas, was das ganze auch wirklich einliest (z.b. zwei textfelder für vor/nachname und ein Button, der im OnClick ereigniss die Eingabe prozedur aufruft und die werte der beiden Textfelder als parameter übergibt) und noch ein weiterer button zur ausgabe
ps: in der variante ist auch der fehler mit dem semikolon behoben und noch ein weiterer in der ausgabeprozedur