Einzelnen Beitrag anzeigen

DelphiNoob1.0

Registriert seit: 23. Okt 2012
Ort: Berlin
13 Beiträge
 
Delphi 6 Personal
 
#4

AW: Letztes Zeichen löschen wenn nicht 0 oder 1

  Alt 26. Aug 2013, 11:12
Ich habs jetzt mal nur mit der 2 gemacht geht aber trotzdem nicht er will da nichts verändern ..
Code:
procedure TForm1.BinaerChange(Sender: TObject); // Change also direkt bei eingabe
var i :integer;
    bin :string;
begin
bin:=Binaer.Text;
i:=length(bin);
If i>1 then
if AnsiLastChar(bin)^ = '2' then delete (bin, i, 1 );
Binaer.text:=bin;
end;
Edit: Okay er verändert jetzt doch was aber nun springt der Cursor wieder zum anfang des Editfeldes wie kann man das verhindern ?

Geändert von DelphiNoob1.0 (26. Aug 2013 um 11:17 Uhr)
  Mit Zitat antworten Zitat