Leerstellen löschen

[Mauli]

Hallo,

ich habe ein Datenfeld, das an der ersten STelle immer ein + oder - hat.

Und irgendwann (nach einer variablen Anzahl von Leerstellen kommt dann eine Zahl.

Wie bekomme ich diese Leerstellen gelöscht.

Bsp.: -________300,21
+__12333,23

usw.

[Tpercon]

Über StringReplace oder z.B. über ne Schleife while s[i] = #32 do ...

[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

[Wormid]

Oder ohne Schleifen:

Delphi-Quellcode:

function LeerzeichenLoeschen(Input: String): String;
begin
  Result := Input;
  if Length(Input) > 1 then 
    Result := Input[1] + Trim(Copy(Input, 2, Length(Input)));
  end;
end;

Gruß

Wormid

Edit: Minimales Error-Checking nachgerüstet... *g*

[Tpercon]

@ Wormid: Gut, dann nur noch überprüfen, ob die Länge größer 1 ist!

[Mauli]

Vielen Dank. Das nennt man schnelle Hilfe :hello: