Moin Leute,
Ich habe eine Function CreateStrings:
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;
Die wird in einem Button1.Click Event aufgerufen:
z := CreateStrings(SimpleRSS.Items.Items[i].Description);
Jetzt wird nur immer die Value Category in einer Listview eingetragen, die Values Size, Speed unsw
nicht.
Delphi-Quellcode:
listitem.SubItems.add(z.Values['Category']);
listitem.SubItems.add(z.Values['Size']);
listitem.SubItems.add(z.Values['Status']);
....
Verweis nach
Parse Function
Was stimmt an der Function CreateStrings nicht?