Leerzeichen in Edit1.Text verhindern

[himitsu]

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

[_frank_]

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 von himitsu:

@lbccaleb: scheib mal mitten in den Text (im Edit) rein
(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 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 von Jakob Ullmann:

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

Das stimmt

Zitat von lbccaleb:

ok dann ebend so:

Hast Du kein Delphi Programm?

[Delphiturbo]

Ich habe diesen Code
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!
[/OT]