Löschversuch funktioniert nicht

[blawen]

Zitat von Versus:

Ich bin gerade dabei nen einfachen Windows Taschenrechner zu programmieren jetzt habe ich u.a. einen Button dafür eingerichtet das man die letzte zahl löschen kann
,also z.B. Ich gebe ne 12 ein drück den Button und dann steht dann da nur noch eine 1.

edit1.Text:=edit1.Text - ' ';

Braucht es diese Funktion überhaupt? In einem Edit-Feld kann man ja üblicherweise mit der Backspace-Taste löschen.

[KodeZwerg]

Zitat von blawen:

In einem Edit-Feld kann man ja üblicherweise mit der Backspace-Taste löschen.

Ich vermute mal das Edit1 ReadOnly für Knopf-Eingabe ist. Also Knopf "1" = Edit1.Text := Edit1.Text + '1';

edit
Ja ne, Du hast ja Recht @blawen, er schreibt ja das er Tippt. Mein Fehler, tut mir Leid!

[p80286]

Eine weitere Möglichkeit wäre:

Delphi-Quellcode:

var
  mytext : string;
begin
  mytext:=self.Edit1.Text;
  delete(mytext,length(mytext),1);     // letztes Zeichen löschen
  self.Edit1.Text:=mytext;
end;

Gruß
K-H

[KodeZwerg]

Zitat von p80286:

Eine weitere Möglichkeit wäre:

Wenn Performance irrelevant ist und es um verschiedene Möglichkeiten geht, hier noch einer:

Delphi-Quellcode:

var
  i: Integer;
  mytext : string;
begin
  myText := '';
  if Length(Edit1.Text) > 0 then
    for i := 1 to Length(Edit1.Text)-1 do
      myText := myText + Edit.Text[i];
  Edit1.Text := myText;
end;

Sollte das gleiche ergeben, ungetestet.

[himitsu]

Das direkt über mir: Sorry, aber für sowas sollte man gesteinigt und gevierteilt werden => Chars "einzeln" aneinanderzuhängen,

aber nochmal was zu dem Copy => LeftStr

[p80286]

Da der TE ein Zeichen löschen möchte dachte ich, da delete ganz gut passen würde.
Daß ein copy das performantere delete bei der Verarbeitung von mehreren tausenden Sätzen ist, sollte sich inzwischen herumgesprochen haben.

Gruß
K-H

QHimitsu
Seit wann gibt es das denn`?
Ich dachte das wäre typisch Basic.

[himitsu]

Seit mehr als 10 Jahren bestimmt. (spätestens seit FastStrings in Delphi übernommen wurde).
Die Unit StrUtils existiert schon ein Weilchen.



Copy/LeftStr oder Delete ist hier fast gleich performant, aber beim Copy hast den Vorteil, dass es nicht erst in einer Variable zwischengespeichert werden muß, da Funktion <> Prozedur.

Theoretisch ist Delete performanter, da es direkt den String behandelt und nichts umkopiert (so lange es nur eine Referenz auf den String gibt), also "inplace" den String behandelt, ohne dass "oftmals" überhaupt der Speichermanager ran muß, was hier aber eh sinnlos ist, da das Ergebnis am Ende sowieso wieder an die Komponente übertragen (kopiert) werden muß.



Ohne FastMM sind aber so Dinge wie Einzelcharoperationen einfach nur krank,
aber obwohl ab da "größerer" Speicher auch inpace vergrößert/verkleinert werden kann, so lange dahinter noch genug frei ist (kleinere Blöcke gibt es nur in gleichgroßen Gruppen, also ist dahinter nie etwas frei), bringt das hier nichts.

[Luckie]

Leute, es geht nur um das manuelle Löschen eines Zeichens in einem Editfeld. Das wird wohl kaum 100.000 mal in der Sekunde passieren. Performance spielt hier absolut keine Rolle. Warum also jeden Thread mit mehr oder weniger sinnvollen, hoch gezüchteten und optimierten Code kaputt diskutieren?

[himitsu]

Zitat von himitsu:

... bringt das hier nichts.

.