zum nächsten Label springen

[nixalsverdruss]

Hallo an alle,
ich möchte ein Programm machen mit dem man etwas in editfelder eingibt und diese Eingvabe dann aufgesplittet in Labeln erscheint. So hab ich das gelöst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
nummer, ergebnis1: integer;
preis, ergebnis2: real;
name: string;
begin
nummer:= StrToInt (edit2.Text);
ergebnis1:= nummer;
Label2.Caption := IntToStr(ergebnis1);
preis:=StrToFloat (edit3.Text);
ergebnis2:=preis ;
Label3.Caption:= FloatToStr (ergebnis2) ;
name:= (edit1.Text);
name:= Label1.Caption;
name:=(Edit1.Text);
Label1.caption:=(name);

Funktioniert auch so wie ich will, allerdings soll mann jetzt in den editfeldern etwas anderes eintragen und dann sollen andere Labels ihre Aufschrift ändern, sodass die anderen immer noch den 1.Eintrag zeigen. Hat jemand ne Idee?
Danke schon mal im Voraus
nixalsverdruss

[Klaus01]

.. du möchtest also eine Liste/Aufstellung
von mehreren Labels habe.

Die zusätzlichen Labels müsstest Du dann dynamisch erzeugen.

Aber wäre es nicht angebrachter zur Auflistung ein TStringGrid
oder eine TListView zu verwenden.

Grüße
Klaus

[nixalsverdruss]

Äh ja könnte sein aber davon hab ich ehrlichgesagt überhaupt keine Ahnung...

[Klaus01]

Zitat von nixalsverdruss:

Äh ja könnte sein aber davon hab ich ehrlichgesagt überhaupt keine Ahnung...

.. dann hast Du ja einen guten Grund Dir das einmal anzuschauen.

Grüße
Klaus

[nixalsverdruss]

WO gibts das denn?

[Klaus01]

Zitat von nixalsverdruss:

WO gibts das denn?

Das StringGrid findest Du unter dem Reiter Additional
und die TListview unter dem Reiter Win32.

Sag doch mal was Du vorhast, wird es so eine Art Kassenzettel?

Grüße
Klaus

[nixalsverdruss]

ne n Programm für meine Schwester... Die spielt immer Buchladen und macht das alles bei Word.....So: Name, Buchnummer, Autor... und zum Schluss sollen alle Preise addiert werden...