wie kann ich das 1. zeichen eines edits löschen ?

[24karatboy]

folgendes problem : ich will bei einem taschenrechner die + / - taste einbauen nur jetzt bleib ich hängen wenn ich von - nach + machen will kann mir da jemand helfen mit delete oder so ?

hier schonmal das was ich gemacht habe:

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);

[Nuclear-Ping]

Delphi-Hilfe -> "Delete"

[DeddyH]

Meinst Du positiv und negativ umschalten?

[24karatboy]

komme da nicht zurecht kannste mir nicht ein beispiel geben ? da gibt es 50 delete methoden ...

[24karatboy]

ja genau deddyh ;)

[DeddyH]

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); *)

[24karatboy]

hmmm was wolltest du mir damit zeigen ?

[mkinzler]

Zitat:

Zitat von 24karatboy

komme da nicht zurecht kannste mir nicht ein beispiel geben ? da gibt es 50 delete methoden ...

Aber nur eine Delete-Funktion!

[Nuclear-Ping]

Naja, ich glaub das Beispiel von Deddy löst sein Problem schon. Mit Delete muss er da nicht groß rumhantieren.

[DeddyH]

So wird aus positiv negativ und umgekehrt.
Wenn Du unbedingt negativ haben willst, geht das z.B. so:

Delphi-Quellcode:

x:=strtoint(edit1.text);
x := -abs(x);
edit1.Text:=inttostr(x);