Also ich habe das Problem jetzt erstmal so gelöst:
Delphi-Quellcode:
procedure testfunc(const s: string; sl: TStrings);
var
i: Integer;
//t: string;
begin
sl.Clear;
with TStringList.Create do
try
Delimiter := '&';
StrictDelimiter := True;
DelimitedText := s;
for i := 0 to Pred(Count) do
begin
DelimitedText := s;
//t := ValueFromIndex[i];
//showmessage(t);
ValueFromIndex[i] := ValueFromIndex[i] + '!test!';
sl.Add(DelimitedText);
//ValueFromIndex[i] := t;
end;
finally
Free;
end;
end;
Nicht die beste Lösung, aber naja...
Vielleicht kann mir ja noch jemand sagen, wieso es vorher nicht geklappt hat.
Danke
