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

[24karatboy]

ja deddyh das hatte ich ja auch hingekriegt aber wenn man nochmal drauf klickt soll das wieder verschwinden und das muss man abfragen ...

[24karatboy]

und ich weiss gerade nicht wie ich das abfragen soll weil in x ist ja der negative wert und ich kann ja nicht -x abfragen weil die variable x ist oder ?

[Klaus01]

Zitat:

Zitat von 24karatboy

ja deddyh das hatte ich ja auch hingekriegt aber wenn man nochmal drauf klickt soll das wieder verschwinden und das muss man abfragen ...

Muß man nicht, wenn immer nur das Vorzeichen gewechselt werden soll.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  x : Integer;
begin
  x:=StrToInt(Edit1.Text);     // z.B.  -2   bzw: 2
  x:=-x;                       // 2         -2
  edit1.Text:=IntToStr(x);     // 2         -2
end;

Grüße
Klaus

[24karatboy]

was ist denn wenn ich von minus wieder nach plus möchte das funzt so nicht klaus ?

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  x : Integer; 
begin 
  x:=StrToInt(Edit1.Text);     // z.B.  -2   bzw: 2 
  x:= x * -1;                       // 2         -2 
  edit1.Text:=IntToStr(x);     // 2         -2 
end;

Mathematik der fünften Klasse. :?

[CCRDude]

Auch wenn ich 24karatboy Posts auch etwas wenig aussagekräftig und noch weniger bemüht finde, möchte ich doch anmerken, daß Delete hier nicht passt, da Text eine Property ist, Delete aber ein Variablen-, kein Konstantenobjekt erwartet (oder wie diese schöne Fehlermeldung noch gleich heißt) ;)

[24karatboy]

das hab ich gesucht ;) die einfachste mathe regel und ich komme nicht drauf ...

danke euch allen

[Nuclear-Ping]

Warst du in der Schule? Da lernt man: Minus und Minus ergibt Plus.

-x - -x = +x

[24karatboy]

jemand ein paar vorschläge was man noch so einbauen könnte ?

[Nuclear-Ping]

Den "Beenden" Knopf

[DeddyH]

Zitat:

Zitat von Nuclear Ping

-x - -x = +x

Sicher? :zwinker:
-x - -x = 0

[Nuclear-Ping]

Ja ... :wall:

Wenigstens die Kernaussage stimmt. :mrgreen:

[24karatboy]

da war wohl jemand in der schule aber hats nicht richtig gelernt ;)

-x - -x = -2x

-x * -x = x


den beenden knopf habe ich schon aber nen hotkey wäre nicht schlecht das sich das programm bei strg+b beendet ?

[DeddyH]

Zitat:

-x - -x = -2x

*Lol* noch weitere Vorschläge? Siehe #21

[Tormentor32]

Zitat:

Zitat von 24karatboy

-x - -x = -2x

nein! :wall: -x - -x = -x+x = 0

edit: Da war kein Kasten! Ehrlich!

[Nuclear-Ping]

Praktische Mathematik war noch nie meine Stärke. :oops:

@24karatboy: Dein Programm hat schon so einen Hotkey: Alt+F4

[DeddyH]

Naja,

Zitat:

Zitat von 24karatboy

-x * -x = x

ist ja auch nicht richtig.

[Nuclear-Ping]

-x * -x = x²

Windows-Rechner ftw :mrgreen:

[DeddyH]

Bei den binomischen Formeln isses dann ganz vorbei. :mrgreen:

[24karatboy]

so weit möchte ich mit meinen taschenrechner nicht gehen ;)

[dajuhsa]

@deddyH:
(a+b)² = a²+b²+2ab;
(a-b)² = a²+b²-2ab;
(a+b)(a-b) = a²-2ab+2ab-b² = a²-b²; :zwinker:

naja :? wenn ich mir die rechenvorschläge hier mal so ansehe...
die gehirnzellen sterben mit dem altern wohl wirklich ab

[wichtig]Das war keine beleidigung nur etwas sarkastischer humor :mrgreen: [/wichtig]