ListBox Wert zuweisen

[rudi_]

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