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?