Und wiedermal poste ich die funktion die es eigentlich schon paar mal im Forum hier gibt.
Delphi-Quellcode:
function splitOutIndex(Source: String; Delimiter: String; Index: Integer): String;
var count, number: Integer;
giveback: String;
begin
count := 1;
number := 0;
giveback := '';
while count <= length(Source) do
begin
if copy(Source, count, length(Delimiter)) = Delimiter then
begin
number := number + 1;
count := count + length(Delimiter);
end else begin
if number = Index then giveback := giveback + Source[count];
count := count + 1;
end;
end;
result := giveback;
end;
Für Beispiele zur anwendung einfach mal das Forum nach
splitOutIndex durchsuchen