Hab auch noch ein Codeschnippsel gefunden ...
Delphi-Quellcode:
function DoValueList (ZeiKett:
string) : TStringList;
var
s :
String;
i : integer;
begin
s := ZeiKett;
Result := TSTringList.Create;
while pos ('
=', s) > 0
do
begin
i := Length (s);
while (s[i] <> '
=')
or (s [i-1] = '
')
do dec (i);
while ((i > 0)
and (s [i] <> '
') )
do dec (i);
Result.Insert(0, Trim(copy (s, i+1, Length (s))));
delete (s, i +1, Length (s));
end;
end;
Es wird ein String in eine ValueList zerlegt, ohne daß man die Names zuvor kennen muß.
Gruß
Thomas
PS:
@Lucki: Bei benraus Lösung solltest Du darauf achten, wirklich alle Schlüsselworte (auch die nicht ausgewerteten) in dem array zu haben, ansonsten könnten einige Values Müll enthalten.