So!
Neuer Versuch..
Habe jetzt mal die Funktion Split aus VB nach Delphi umgesetzt.
Verstehe nicht das so eine einfache Funktion in Delphi nicht zur verfügung steht.
Nun gut dann teste es einfach mal.
Delphi-Quellcode:
Type
TSplitStrArray = array of String;
end;
function Split(const Source, Delimiter: String): TSplitStrArray;
var
spCount: Integer;
spPos: Integer;
spLength: Integer;
sTemp: String;
aSplit: TSplitStrArray;
begin
sTemp := Source;
spCount := 0;
spLength := Length(Delimiter) - 1;
repeat
spPos := Pos(Delimiter, sTemp);
if spPos = 0 then
break
else begin
Inc(spCount);
SetLength(aSplit, spCount);
aSplit[spCount - 1] := Copy(sTemp, 1, spPos - 1);
Delete(sTemp, 1, spPos + spLength);
end;
until False;
if Length(sTemp) > 0 then begin
Inc(spCount);
SetLength(aSplit, spCount);
aSplit[spCount - 1] := sTemp;
end;
Result := aSplit;
end;
Aufrufen mit !
Delphi-Quellcode:
var
spSource: TSplitStrArray;
spDest: string;
Begin
spSource := Split(TagsData.Author, #0);
spDest := Trim(spSource[0]);
end;
Bei mir funktioniert es hundert pro
Geht bestimmt besser habe aber auf die schnelle nichts besseres umsetzen können.
Habs getestet Trim geht nicht erst dann wenn du die Daten
durch die Split funktion gejagt hast.
gruß