der verflixte taschenrechner und die rücktaste

[Raffy]

Hallo Leute

So mein Taschenrechner ist jetzt FAST fertig. Nachdem
ich die C und CE Taste noch programmiert habe, brauch ich noch ne
rücktast. ( z.B. ich gebe die Zahl "1211111" ein und habe mich um
eine 1 versehen und will wieder ein zurück gehen um sie zu löschen)
Wie macht man das? Ich habe es zwar geschafft, dass ein ganze
Zahl gelöscht wird aber nur eine Ziffer? Dárum bitte ich
euch um hilfe. Ich will nämlich auch so gut wie
möglich Delphi lernen. Ich habe mir auch schon ein Buch gekauft aber
darin wird der Taschenrechner nicht ganz zu ende gemacht.
Und den will ich jetzt fertig haben.

MFG
Raffy

[Die Muhkuh]

Ganz einfach:

Edit1.Undo

[Stanlay Hanks]

Hi. Oder du schaust dir mal die Funktion "Copy" in der OH an. Die letzte Zahl in einem Edit könntest du dann mit (habs nicht getestet, müsste aber stimmen)

Edit1.Text := Copy(Edit1.Text,1,Length(Edit1.Text)-1) löschen.

Man liest sich, Stanlay

[Raffy]

Tut mir leid wenn ichs vergessen habe zu sagen

aber ich ein blutiger Anfänger und habe keine Ahnung was du gemeint hast.
Wie muss ich das denn in meinen Quellcode schreiben?
Kann mir jemand ein Bespiel an hand eines Quellcodes geben?


MFG
Raffy

[Sharky]

Zitat von Spider:

Ganz einfach:

Edit1.Undo

Da gibt es aber ein Problem. Wenn Edit1.Text durch das Programm verändert wurde, z.B. durch Edit1.Text := Edit1.Text + '1'; geht Undo nicht.

So kannst Du aber auch das letze Zeichen eines Edits löschen

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  s : String;
begin
  s := Edit1.Text;
  Delete (s,Length(s),1);
  Edit1.Text := s;
end;

Oder mit dem Beispiel von Stanlay

[Die Muhkuh]

Zitat von Sharky:

Zitat von Spider:

Ganz einfach:

Edit1.Undo

Da gibt es aber ein Problem. Wenn Edit1.Text durch das Programm verändert wurde, z.B. durch Edit1.Text := Edit1.Text + '1'; geht Undo nicht.

HaiFisch,

ich wusste ja nicht wie er es verändert. Und so wie er es geschrieben hat, dachte ich mir, dass das aus dem Buch "Delphi für Kids" kommt...

[Stanlay Hanks]

Hi nochmal.

Du müsstest dann

Delphi-Quellcode:

  IF Key = #8 THEN
    begin
      Edit1.Text := Copy(Edit1.Text,1,Length(Edit1.Text)-1);
    end;

in das OnKeyPress deines Editfeldes schreiben.

"Key = #8" fragt ab, ob die gedrückte Taste die Rücktaste war und "Copy" Kopiert aus einem bestimmten String (Erster Parameter) von einer bestimmten Position weg (Zweiter Parameter) bis zu einer bestimmten Länge (Dritter Parameter) alle Zeichen und gibt sie als Ergenis der Funktion zurück.

Allerdings ist "Edit1.Undo" für soetwas doch denke ich wesentlich sinnvoller, weil einfacher und kürzer.

Man liest sich, Stanlay

Edit: Ich bin heute ja mal wieder lahm

[Raffy]

Vielen Vielen Dank

Es funktioniert jiepy. Aber es folgt schon das nächste problem.
Die Tasten M+, MC, MS, MR. Die versuche ich schon seit heute morgen zu programmieren,
aber es gelingt mir einfach nicht. Ich weiß auch nicht was ich falsch
mache. Bitte helft mir noch einmal.

MFG
Raphael

[Ultimator]

Wenn mir einer erklärt, wozu die da sind, dann gerne

[Die Muhkuh]

Soweit ich weiß, steht M für Memory. Demnach Speichern.

M+ = Speichern
MC = Speicher löschen
MR = Wieder einfügen
MS = Microsoft... , ne KA.