Edit.Text --> Zahlen zuweisen

[elduchte]

Hallo,
ich möchte in meiner Anwendung der TEdit-Komponente Zahlen zuweisen. Und zwar immer nur genau eine Zahl und dann von rechts nach links.

Hat jemand eine Idee ??

Danke
Andreas

[Daniel B]

Hallo,

ich verstehe nicht ganz. Möchstest Du immer nur eine dirn haben, oder immer um eine neue Zahl zu ergänzen und die von rechts aus "reinscrollen"?

Grüsse, Daniel :hi:

[elduchte]

Hi,
ich möchte praktisch eine Zzahl von rechts nach links in ein Edit-Feld schreiben:

1. Zahl ins Feld schreiben
2. die Stelle VOR der geschriebenen Zahl auswählen
3. nächste Zahl schreiben
4. wieder Position VOR der letzten Zahl auswählen
5. wieder Zahl schreiben

usw.... bis ich zum Schluß eine mehrstellige Zahl im Edit-Feld stehen habe

Danke
Andreas

[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.