Smazání posledního znaku v Edit, posunutí kurzoru nakonec řádku – Delphi – Fórum – Programujte.com

Dobrý den,
Potřebaval bych poradit jak docílit toho abych v poli edit1.text pomocí tlačítka smazal poslední znak v poli Editu. Dále bych chtěl vědět jak přehodím kurzor v Editu z levé strany na pravou; zarovnání textu je vlevo.

Děkuji za odpověď, jestli je toto téma již založené tak se omlouvám, ale nenašel jsem ho.

zmazanie posledneho pismena

Delete(Edit1.Text, Length(Edit1.Text), 1));  // zmaze posledny znak textu z editu

  SetLength(Edit1.Text, Length(Edit1.Text)-1);

Edit1.SetFocus;

Edit1.SelStart := 0;

Edit1.SelLength := 0;

No, mám v tom celkem dost zmatek, jsem teprve zacatecnik.
To posunutí kurzoru je bez chyby, ale ten zbytek jsem asi špatně použil tak mi to nejde.

Hold jsem si vymyslel svoje, vypada to sice složiťe, ale funguje :D :

procedure TForm1.SpeedButton30Click(Sender: TObject);  // tl. "<-" pro vymazání posledního znaku z displeje

 var i:integer;

     VyslE:string;

begin

 VyslE:='';

 for i:=1 to Edit1.GetTextLen-1 do

  VyslE:=VyslE+Edit1.Text[i];



 Edit1.Text:=VyslE;

end;