AHA,
du willst also ein zwischenergebnis in einen array speichern.
das geht so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.ArraySpeichernClick(Sender: TObject);
var StoreLen:integer;
Store: Array of Double;
begin
StoreLen:=length(store)+1;
setlength(Store,StoreLen);
store[StoreLen]:=strtoFloat(ErgebnisEdit1.Text);
end; |
um das aber alles von außen her ein bisschen übersichtlicher zu gestalten, würde ich das ergebnis direkt als string in eine listbox speichern:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.ListboxSpeichernClick(Sender: TObject);
begin
listbox1.Items.Add(ErgebnisEdit1.Text);
end; |
und mit dieser prozedure wird das Ergebnis wieder im Edit angezeigt auf welches du in der Lsitbox geklickt hast:
Delphi-Quelltext
1:
2:
3:
4:
| procedure TForm1.ListBox1Click(Sender: TObject);
begin
ErgebnisEdit1.Text:=Listbox1.Items.Strings[Listbox1.ItemIndex];
end; |
der quellcode dient nur umd das prinzip und die funktionsweise klar zu machen. wenn du es "richtig" machen willst, musst du noch ein paar sicherheitsabfragen rein z.b. ob es sich bei dem gespeicherten wert tatsächlich um einen integer handelt oder die zahlen ein bisschen runden
es wäre unter umständen noch nützlich (je nachdem wie dein programm aufgebaut ist), wenn du eine zahlenvariable (integer, double) global setzt in welche das ausgewählte "string"ergebis direkt als zahlenwert gespeichert wird.
so sparst du dir das andauernde umrechenen von string nach einem zahlenwert.
::EDIT: hier ist noch der link zum Array-Tutorial: [url=
www.delphi-forum.de/...ighlight=array]klick mich->
[/url]
CU
Peter Lustig
im DF!
.
Wenn grafisch -> StringGrid.