edit

Jak usunąć ostatnią cyfrę z edit'a. Np po naciśnięciu buttona(co kolwiek).
Potrzebyję procedurę która usuwa ostatnią cyfrę(znak własciwe) z edit'a.
Np.: 1234567890 po naciśnięciu usunie się: 0.

Ja bym ładował każdy znak do tablicy a potem zwracał bez ostaniej :)
Szybsze sposoby mile widziane :)

delete(edit.text,length(edit.text),1)

No tak , a możesz zamieścić przykład. Albo nie da się coś w tyly Edit.text -1. Jakieś coś takiego. dziś juz widzialem ale ni moge znaleźć.

To jest pisanie calkowicie na zywca (bez wlaczania delphi :) )

var
s : string;
begin
s := copy(Edit1.text,0,SizeOf(Edit1.Text));
showmessage(s);
end;

Napisane bez sprawdzania ale powinno dzialac :)

[dop]
prosze prosze jakie zainteresowanie postem :) Ale tylko ja dalem przykladzik :P

[dop2]
dobra poprawka tamto nie dziala do konca. Zlitowalem sie i wlaczylem delphi :) I powinno to wygladac tak i dziala:

var
s:string;
begin
s := copy(Edit1.text,0,Length(Edit1.Text)-1);
showmessage(s);
end;

To jest pisanie calkowicie na zywca (bez wlaczania delphi :) )

var
s : string;
begin
s := copy(Edit1.text,0,SizeOf(Edit1.Text));
showmessage(s);
end;

Napisane bez sprawdzania ale powinno dzialac :)

[dop]
prosze prosze jakie zainteresowanie postem :) Ale tylko ja dalem przykladzik :P

[dop2]
dobra poprawka tamto nie dziala do konca. Zlitowalem sie i wlaczylem delphi :) I powinno to wygladac tak i dziala:

var
s:string;
begin
s := copy(Edit1.text,0,Length(Edit1.Text)-1);
showmessage(s);
end;

nie bedzie działac, stringi zapisywane są od 1 a nie od zera

UnDe@D nie chce sie klucic ale moj przyklad dziwnie dziala :) W przeciwienstwie do twojego :)

bo podejrzawam ze z moim przykałdem jest tego typu problem ze text jest ptoperty a toznaczy ze const, a delete chce zmienna wiec mozna to poprawic na
s : string
s := edit1.text
delete(s,length(s),1) na bank kasuje ostatni znak

bo podejrzawam ze z moim przykałdem jest tego typu problem ze text jest ptoperty a toznaczy ze const, a delete chce zmienna wiec mozna to poprawic na
s : string
s := edit1.text
delete(s,length(s),1) na bank kasuje ostatni znak

Teraz dziala