Moin
ich hab mal n kleines Beispiel für nen RichEdit geschrieben.
So wie ich das verstanden hab willst du ja per befehl oder ButtonClick die Leerzeichen entfernen lassen und net schon bei der Eingabe.
Delphi-Quellcode:
procedure del(var a:string; b: longint);
var c: longint;
begin
for c := b to (length(a)-1) do
a[c] := a[c+1];
a[length(a)] := #0;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
a: string;
b: longint;
begin
a := RichEdit1.Text;
for b := length(a) downto 1 do
if a[b] = #32 then del(a,b);
RichEdit1.Text := a;
end;
Ich hoffe das funzt
