Hallo, ich habe einen String bei dem ich alle Leerstellen in Semikolons umwandel, da ich leerstellen als Semikolon angezeigt bekommen möchte. Bei mehreren Leerzeichen soll allerdings auch nur ein Semikolon zwischen den Buchstaben stehen. Deshalb probiere ich mit einer Schleife die überflüssigen Semikolons zu löschen. Das ist allerdings der Moment wo die Sache nicht mehr so ganz funktioniert. Ich muss da irgendwo einen logischen Fehler drin haben komme aber überhaupt nicht drauf.
Also der String der in die Schleife übergeben sieht ungefähr flogendermaßen aus: sfslfj;;;;;safkjfsh;;;;sjf;jsf, soll nach der Schleife aber so aussehen: sfslfj;safkjfsh;sjf;jsf siehr aber so aus sfslfj;;safkjfsh;;sjf;jsf. Es werden nicht alle Semikolons gelöscht. Hier ist meine Source.
Delphi-Quellcode:
TrimString := Trim(OriginalString);
SemikolonString := StringReplace(TrimString, ' ', ';', [rfReplaceAll]);
iLaenge := Length(OriginalString);
for i := 0 to (iLaenge - 1) do begin
if (SemikolonString[i] = ';') and (SemikolonString[i + 1] = ';') then begin
Delete(SemikolonString,i,1);
end;
end;
result := SemikolonString;
könnt ihr euch ja vielleicht mal angucken
mfg
DF.A