Parse Funktion?

[lucius]

Nein marabu, ich habe die Zeilen nicht eleminiert.
So stehts in meinem Code

Delphi-Quellcode:

function TForm1.CreateStrings(s: string): TStrings;
var
  name, value: string;
  i: integer;
begin
  Result := TStringList.Create;
  Result.NameValueSeparator := ':';
  Result.Text := s;
  for i := 0 to Pred(Result.Count) do
  begin
    name := Trim(Result.Names[i]);
    value := Trim(Result.Values[name]);
    Result[i] := name + Result.NameValueSeparator + value;
  end;
end;

Dan rufe ich ueber einen Button.click die Function auf.

Delphi-Quellcode:

For Counter := 0 to SimpleRSS.Items.Count-1 do
Begin
  z := CreateStrings(SimpleRSS.Items.Items[Counter].Description); <-----

Oder muss der code irgendwo anders stehen? ListviewData?