Letztes Zeichen (Zahl) aus Edit-Feld löschen

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Ich weiß zwar wie ich zeichen zum EditFeld dazufügen kann, aber ich bräuchte einen wie ich das letzte Zeichen wieder löschen kann.

Also dazufügen mach ich z.B. so

markieren

Delphi-Quelltext

1:	Edit1.Text := Edit1.Text + 'A'

also wenn das jetzt verständlich war :oops:

greetz

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

AXMD · Verfasst: Do 22.09.05 19:59

Das sollte so gehen...

markieren

Delphi-Quelltext

1:
2:
3:

temp := Edit1.Text;
Delete(temp, Length(temp), 1);
Edit1.Text := temp;

Natürlich vorausgesetzt, dass temp ein String ist...

AXMD

Sprint · Beiträge: 849

Born-to-Frag hat folgendes geschrieben:

Ich weiß zwar wie ich zeichen zum EditFeld dazufügen kann, aber ich bräuchte einen wie ich das letzte Zeichen wieder löschen kann.

markieren

Delphi-Quelltext

1:
2:

  with Edit1 do
    Text := Copy(Text, 1, Length(Text) - 1);

_________________
Ciao, Sprint.

Horst_H · Verfasst: Fr 23.09.05 07:28

Hallo,

Es gibt so viele Moeglichkeiten, mal ohne kopieren von Daten.

markieren

Delphi-Quelltext

1:
2:

with Edit do
  setlength(Text,length(text)-1);

Gruss Horst

Moderiert von AXMD: Code- durch Delphi-Tags ersetzt

Lannes · Verfasst: Fr 23.09.05 07:42

Hallo,

@ user profile icon

Horst_H: wenn das mal gutgeht

Konstantenobjekt kann nicht als Var-Parameter weitergegeben werden

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )

Born-to-Frag · Beiträge: 1094 Win XP SP2, Win 2000 SP4 Delphi 7, 2k5

Das von AXMD hat funktioniert. Die anderen hab ich jetztg nicht getestet

Dankesehr

greetz

_________________
Theorie ist wenn man alles weiß, aber nichts funktioniert. Praxis ist wenn alles funktioniert, aber niemand weiß warum.
Microsoft vereint Theorie und Praxis: Nichts funktioniert und niemand weiß warum.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme