Ich finde das alles sehr kompliziert und versuche mehr durch Raten als durch Wissen zum Ziel zu kommen
Aber immerhin bin ich jetzt schon so weit gekommen, dass die Internetseite heruntergeladen und durchsucht wird. Leider kann ich nur nach einem einzigen String suchen und ihn auswerten. Sobald ich versuche, einen zweiten String auszuwerten, kriege ich eine
Exception (Listenindex überschreitet das Maximum (1)).
Delphi-Quellcode:
var
SpielerListe :
String;
sl : TStringList;
ndx : Integer;
okay : Boolean;
i:integer;
begin
//HTML-Seite wird heruntergeladen und gespeichert
okay := False;
sl := TStringList.Create;
try
sl.Delimiter := '
';
for i:=0
to sl.Count-1
do
begin
sl.DelimitedText := memGesucht.Lines[i];
for ndx := 0
to pred (sl.Count)
do
begin
okay := Pos (sl.Strings[ndx],SpielerListe) > 0;
// Wort ist vorhanden
if not (okay)
then
begin
memGetrennt.Lines.Add(sl.Strings[ndx]);
end
else
begin
memVerbunden.Lines.Add(sl.Strings[ndx]);
end;
end;
end;
finally
FreeAndNil (sl);
end;
end;