Hallo Lucius,
noch eine Lösung: Wenn die untereinander stehenden Zeilen so in einem string stehen:
Delphi-Quellcode:
const
muster
= '
Category: Diversen'#13#10
+ '
Size: 22.17 MB'#13#10
+ '
Status: no seeders and no leecher'#13#10
+ '
Speed: 0.56 kB/s'#13#10
+ '
Added: 2005-10-14 22:11:15'#13#10
+ '
Download : [url]http://www.hansi.org/download.php/7385/115[/url] Scripts From PopScript.com'
;
Dann kannst du diesen String so analysieren:
Delphi-Quellcode:
function TDemoForm.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;
Auf das Ergebnis kannst du dann so zugreifen:
Delphi-Quellcode:
var
s: TStrings;
begin
s := CreateStrings(muster);
ShowMessage(s.Values['Category']);
s.Free;
end;
Grüße vom marabu