|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.628 Beiträge
Delphi 12 Athens
|
Re: wie kann ich das 1. zeichen eines edits löschen ?
25. Jun 2007, 10:45
Delphi-Quellcode:
x:=strtoint(edit1.text);
// if (x > 0) then
x:=-x;
edit1.Text:=inttostr(x)
(* else if (x < 0) then begin
if pos( '-', Edit1.Text ) = 1 then
edit1.Text:=inttostr(x); *)
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|