Leerzeichen in Edit1.Text verhindern

[Delphiturbo]

Hallo

wie kann ich Leerzeichen in Edit1.Text OnChange.Event verhindern ?

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
begin
// habe ich einmal so gelöst
// if ... = ' ' then ... :=''
end;

[Matze]

Hi,

das geht sicher, doch ich würde dafür das OnKeyPress-Ereignis nutzen:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ' ' then
    Key := #0;
end;

Grüße, Matze

[Fussball-Robby]

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ' ' then 
    Key := #0;
end;

Mfg

Edit: da hatte wohl jemand die gleiche Idee :lol:

[Delphiturbo]

Und was wäre wenn der User den Inhalt nicht eintippt sondern einfügt ? :mrgreen:

was muss man dagegen in Onchange eingeben?

[_frank_]

Zitat:

Zitat von Matze

das geht sicher, doch ich würde dafür das OnKeyPress-Ereignis nutzen:

und was ist mit copy&paste? ich würde schon das OnChange nehmen, so in etwa (ungetested):

Delphi-Quellcode:

procedure TForm1.Edit1Change(sender:TObject);
var s:string;
    p:integer;
begin
  s:=(sender as TEdit).text;
  p:=pos(' ',s);
  while p>0 do
  begin
    delete(s,p,s);
    p:=pos(' ',s);
  end;
  (sender as TEdit).text:=s;
end;

HTH Frank

[toms]

Hallo, ist es wichtig, dass keine Leezeichen im Edit erscheinen oder dürfen bei einer späteren Verarbeitung des Edittextes keine Leerzeichen vorhanden sein?
Bei Letzterem könntest du die Leerzeichen per StringReplace herausfiltern.

[lbccaleb]

oder eine nicht ganz so schöne methode:

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;
end;

das in onchange einfügen..

[Delphiturbo]

Zitat:

Zitat von lbccaleb

oder eine nicht ganz so schöne methode:

das in onchange einfügen..

Es hat nicht funktioniert auch der Code von _frank_!!!
Ich habe diesen Code gehabt. Er war ein kurzer Code mit der Idee if ... ' ' then ... =''

[Phoenix]

WAS hat nicht funktioniert?
Und was heisst 'Er war klein !' ???

[himitsu]

besser währe wohl Beides
- erst garkein Leerzeichen beim Eingeben erlauben > muß man es auch nicht mehr unschön löschen
- und den Cursor muß man ja auch nicht ständig verschieben :angel:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ' ' then 
    Key := #0;
end;

procedure TForm1.Edit1Change(sender:TObject);
var
  s: String;
  i: Integer;
begin
  s := TEdit(Sender).Text;
  if pos(' ', s) > 0 then
  begin
    i := TEdit(Sender).SelStart;
    TEdit(Sender).Text := StringReplace(S, ' ', '', [rfReplaceAll]);
    TEdit(Sender).SelStart := i;
  end;
end;

[lbccaleb]

Zitat:

Zitat von Delphiturbo

Zitat:

Zitat von lbccaleb

oder eine nicht ganz so schöne methode:

das in onchange einfügen..

Es hat nicht funktioniert auch der Code von _frank_!!!
Ich habe diesen Code gehabt. Er war ein kurzer Code mit der Idee if ... ' ' then ... =''

also ich habs gerade so bei mir versucht und bei mir haut alles hinn, egal ob mit reinschreiben oder einfügen, er entfernt immer die ' ' aus dem edit!!

[Delphiturbo]

Zitat:

Zitat von Phoenix

WAS hat nicht funktioniert?

Ich konnte einen Satz mit mehreren Leerzeichen in Edit1.Text einfügen :mrgreen:

[Delphiturbo]

Was himitsu ist die Lösung :thumb:

[himitsu]

:mrgreen:

Zitat:

Zitat von Delphiturbo

Ich konnte einen Satz mit mehreren Leerzeichen in Edit1.Text einfügen :mrgreen:

hattest du auch die Events deinem Edit hinzugefügt?

[Fussball-Robby]

Delphi-Quellcode:

TEdit(Sender).SelStart := i;

Das muss aber so heißen:

Delphi-Quellcode:

TEdit(Sender).SelStart := i - 1;

Der Cursor ist ja hinter dem bereits eingetippten Leerzeichen, wenn man dieses nun löscht, ist der Cursor 1 zu weit rechts :wink:

Zitat:

Zitat von himitsu

:mrgreen:

Zitat:

Zitat von Delphiturbo

Ich konnte einen Satz mit mehreren Leerzeichen in Edit1.Text einfügen :mrgreen:

hattest du auch die Events deinem Edit hinzugefügt?

:mrgreen: :mrgreen:

[_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.

Delphi-Quellcode:

procedure TForm1.Edit1Change(Sender: TObject);
var s:string;
    p,cp:integer;
begin
  s:=(sender as TEdit).text;
  cp:=edit1.SelStart;
  p:=pos(' ',s);
  while p>0 do
  begin
    delete(s,p,1);
    if cp<=p then dec(cp);
    p:=pos(' ',s);
  end;
  (sender as TEdit).text:=s;
  (sender as TEdit).SelStart:=cp;
end;

HTH Frank

[Delphiturbo]

Ich wollte auch nur die Großbuchstaben nehmen
Ich habe diesen Code :

Delphi-Quellcode:

Edit1.Text := AnsiUpperCase(Edit1.Text);

Der Cursor blinkt immer in der 1. Position und wenn ich was eintippe dann kommt ganz vorne !!! :mrgreen:
wo liegt das Problem ?

[Delphiturbo]

Zitat:

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 !!!

[himitsu]

Zitat:

Zitat von Fussball-Robby

Der Cursor ist ja hinter dem bereits eingetippten Leerzeichen, wenn man dieses nun löscht, ist der Cursor 1 zu weit rechts :wink:

Falsch :zwinker:

du kannst kein Leerzeichen eingeben, wegen Edit1KeyPress

also alte Pos = Neue
und diese liegt vor dem eingefügtem Text

Zitat:

aber der Cursor blinkt immer ganz vorne. d.h. wenn du eine Buchstabe eintippst dann kommt vorne !!!

weil du den Text neu ins Edit schreibst und dabei die Cursorposition löschst ;)
(siehe SelStart)


incl. Großschreibung:

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = ' ' then
    Key := #0;
  Else
    Key = AnsiUpperCase(Key)[1];
end;

procedure TForm1.Edit1Change(sender:TObject);
var
  s, s2: String;
  i: Integer;
begin
  s  := TEdit(Sender).Text;
  s2 := AnsiUpperCase(s);
  if (pos(' ', s2) > 0) or (s <> s2) then
  begin
    i := TEdit(Sender).SelStart;
    TEdit(Sender).Text := AnsiUpperCase(StringReplace(s2, ' ', '', [rfReplaceAll]));
    TEdit(Sender).SelStart := i;
  end;
end;

[lbccaleb]

Zitat:

Zitat von Delphiturbo

Zitat:

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;

[himitsu]

@lbccaleb: scheib mal mitten in den Text (im Edit) rein :zwinker:
(so ist der Cursor nun immer ganz hinten)

[_frank_]

Zitat:

Zitat von Delphiturbo

aber der Cursor blinkt immer ganz vorne. d.h. wenn du eine Buchstabe eintippst dann kommt vorne !!!

kann man deinerseits etwas mehr Freundlichkeit erwarten? Zumal ich auf das von dir geschilderte Problem mit meinem Code eingegangen bin und sogar eine Copy&Paste-fertige version bereitgestellt habe, welche auch dieses Problem beseitigt.

Gruß Frank

[Delphiturbo]

Zitat:

Zitat von himitsu

@lbccaleb: scheib mal mitten in den Text (im Edit) rein :zwinker:
(so ist der Cursor nun immer ganz hinten)

Beim eintippen ja ok
aber nach dem Einfügen springt der Cursor wieder nach vorne
Es ist aber nicht schlecht. Man kann die Cursor-Position Manual nachträglich positionieren

[Delphiturbo]

Zitat:

Zitat von lbccaleb

ich hab meins nach dem auch nochmal geändert

Immer falsch. Bestimmt nicht getestet

[Jakob Ullmann]

Warum nicht einfach die Funktion StringReplace nehmen? Übrigens @Großbuchstaben: TEdit hat doch eine Eigenschaft CharCase oder so.

[lbccaleb]

ok dann ebend so:

Delphi-Quellcode:

var
  i: integer;
  tempstr, curpos: string;
begin
  tempstr := '';
  curpos := edit1.selstart;
  for i := 1 to Length(edit1.Text) do
    if edit1.Text[i] <> ' ' then
      tempstr := tempstr + edit1.Text[i];
  edit1.Text := tempstr;
  edit1.SelStart := curpos;
end;

[shmia]

Wozu eigentlich der Kampf mit den Leerzeichen ?
Also WAS soll den in das Editfeld eingegeben werden und warum dürfen keine Leerzeichen drin sein ?

Mal angenommen es soll eine Faxnummer eingegeben werden und du willst keine Leerzeichen, damit die Nummern eindeutig vergleichbar sind.
Dann ist es doch viel besser, die Leerzeichen in dem Augenblick zu entfernen, wenn der Feldinhalt ausgelesen wird anstatt den Benutzer zu bevormunden.

Unser Kopf ist rund, damit das Denken die Richtung wechseln kann

PS:
Und jetzt bin ich mal gespannt, wie lange es dauert, bis meine Frage beantwortet wird.
Oder ob die Gedanken so eingefahren sind, dass die Antwort nie kommt.

[Delphiturbo]

Zitat:

Zitat von Jakob Ullmann

Warum nicht einfach die Funktion StringReplace nehmen? Übrigens @Großbuchstaben: TEdit hat doch eine Eigenschaft CharCase oder so.

Das stimmt :thumb:

Zitat:

Zitat von lbccaleb

ok dann ebend so:

Hast Du kein Delphi Programm?

[Delphiturbo]

Ich habe diesen Code

Delphi-Quellcode:

Edit1.Text := AnsiUpperCase(Edit1.Text);

weg gelöscht, da wir die Edit1.Text eigeschaft Charcase besser nehmen können
dann blinkt der Cursor richtig

[Nuclear-Ping]

[OT]
Turbo, du kennst schon die "Edit"-Funktion oder? ;) Pushen erst nach 24h! :warn:
[/OT]

[lbccaleb]

was genau ist jetzt eigentlich dein problem bzw was sind deine probleme??

[toms]

Zitat:

Zitat von shmia

Wozu eigentlich der Kampf mit den Leerzeichen ?
Also WAS soll den in das Editfeld eingegeben werden und warum dürfen keine Leerzeichen drin sein ?

Mal angenommen es soll eine Faxnummer eingegeben werden und du willst keine Leerzeichen, damit die Nummern eindeutig vergleichbar sind.
Dann ist es doch viel besser, die Leerzeichen in dem Augenblick zu entfernen, wenn der Feldinhalt ausgelesen wird anstatt den Benutzer zu bevormunden.

Etwas ähnliches habe ich oben auch schon angeregt jedoch wurde darauf nicht eingegangen...

Zitat:

Zitat von toms

Hallo, ist es wichtig, dass keine Leezeichen im Edit erscheinen oder dürfen bei einer späteren Verarbeitung des Edittextes keine Leerzeichen vorhanden sein?
Bei Letzterem könntest du die Leerzeichen per StringReplace herausfiltern.