Okay dank euch habe ich es jetzt! Ich bin fertig es gibt nur ein problem und zwar sind ungefähr die ersten 10 zeilen meiner ListBox frei und wurden somit übersprungen
wisst ihr woran dass liegen könnte?:
Delphi-Quellcode:
var
Form1: TForm1;
n: Integer; //Hier deklarieren wir Variablen, die
namen : array [1..20] of string; //wir im späteren Verlauf benötigen
implementation
{$R *.dfm}
//-------------------------------------------------------------------------
procedure TForm1.btEinlesenClick(Sender: TObject);
begin
inc(n); namen[n]:=edEingabe.text;
edEingabe.Text:= ''
end;
//----------------------------------------------------------------------
procedure TForm1.btEndClick(Sender: TObject);
begin
close;
end;
//----------------------------------------------------------------------
procedure TForm1.btAusgabeClick(Sender: TObject);
var i: integer;
begin
listAusgabe.Items.Clear;
for i:=1 to High(Namen) do
listAusgabe.Items.Add(Namen[i]);
ListAusgabe.Sorted := not ListAusgabe.Sorted;
end;
//----------------------------------------------------------------------
procedure TForm1.bitbtEndClick(Sender: TObject);
begin
close;
end;
end.
Danke!
[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]