Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by KodeZwerg,
16. Aug 2018
Wenn Performance irrelevant ist und es um verschiedene Möglichkeiten geht, hier noch einer:
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;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by KodeZwerg,
16. Aug 2018
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!
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by KodeZwerg,
16. Aug 2018
Ps: Nur so Nebenbei, Du könntest Dir auch eine Redo Funktion dazu einbauen, also das wenn jemand "lösch letzte Zahl" klickt es auch wieder Rückgängig machen kann, für mehrere Werte müsste man sich nur ein kleines Array einrichten worüber man Werte speichert/zurückholt. Wiegesagt, nur so Nebenbei erwähnt falls Du noch Ideen brauchst :-D
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by KodeZwerg,
16. Aug 2018
Gern geschehen, mach es dann aber bitte so: if Length(Edit1.Text) > 0 then Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1); :wink:
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by KodeZwerg,
16. Aug 2018
Wie schauts mit einem Edit1.Text := Copy(Edit1.Text, 1, Length(Edit1.Text)-1); aus? Das müsste klappen.