Edit.Text --> Zahlen zuweisen

[Lillebrohr]

Guten Tag,

meinst du etwa so hier:

Die zahl lautet : 345629 zum beispiel und du willst jetzt die erste Zahl ins Edit feld schreiben. Dann steht jetzt die 3 im Feld. Danach die 4 also steht dann 43 im Editfeld, so ungefähr ?

Dann lautet die Procedure so:

Delphi-Quellcode:

var zahl : string;
    i : integer;
    ziff_table : char;
begin
zahl := '345629';
for i:=1 to length(zahl) do
begin
ziff_table := zahl[i];
edit1.text := ziff_table + edit1.text;
end;

Dann müßte im EditFeld dann das stehen : '926543'

Habs jetzt nicht ausprobiert, da ich nicht zu hause bin, aber dürfte funktionieren.

schönen tag noch.