Leerstellen löschen

[alcaeus]

Das sollte helfen:

Delphi-Quellcode:

function LoescheLeerzeichen(Text: String);
var
  i: Integer;
begin
  i := 1;
  while (i <= Length(Text) do
  begin
    while Text[i] = ' ' do
      Delete(Text,i,1)
    Inc(i);
  end;
end;

Dies müsste alles funktionieren