Einzelnen Beitrag anzeigen

Benutzerbild von lbccaleb
lbccaleb

Registriert seit: 25. Mai 2006
Ort: Rostock / Bremen
2.037 Beiträge
 
Delphi 7 Enterprise
 
#20

Re: Leerzeichen in Edit1.Text verhindern

  Alt 5. Mai 2008, 16:34
Zitat von Delphiturbo:
Zitat von _frank_:
der einzige fehler den ich in meinem Code finden konnte war der letzte Parameter von delete...s statt 1.

ansonsten wäre noch die geschichte mit dem cursor, wo man den erstmal sichert und dann ggf. anpasst.
aber der Cursor blinkt immer ganz vorne. d.h. wenn du eine Buchstabe eintippst dann kommt vorne !!!

ich hab meins nach dem auch nochmal geändert :


Delphi-Quellcode:
var
  i: integer;
  tempstr: string;
begin
  tempstr := '';
  for i := 1 to Length(edit1.Text) do
    if edit1.Text[i] <> ' then
      tempstr := tempstr + edit1.Text[i];
  edit1.Text := tempstr;
  edit1.SelStart := Length(edit1.Text);
end;
Martin
MFG Caleb
TheSmallOne (MediaPlayer)
Die Dinge werden berechenbar, wenn man die Natur einer Sache durchschaut hat (Blade)
  Mit Zitat antworten Zitat