Delphi-Quellcode:
var
i:integer;
SL:TStringlist ;
Position:integer;
begin
ListeD.Clear;
ListeE.Clear;
Sl:=TStringlist.Create;
SL.LoadFromFile('C:\Users\Neu.txt');
for i:=0 to SL.Count-1 do
begin
if Odd(i)=False then begin
Position:=Pos(SucheD.text,SL[i]);
if Position<>0 then begin
ListeD.Items.Add(SL[i]);
ListeE.Items.Add(SL[i+1]);
end;
end;
end;
end;
Klappt bisher ganz gut - dauert nur ewig lange... Kann ich den Suchvorgang im Hintergrund laufen lassen, sodass man etwas neues eingeben kann, während gesucht wird? Oder den Suchvorgang beschleunigen?
Und dann noch eine Sache: Wenn man im linken Feld scrollt, soll im rechten ebenfalls gescrollt werden, damit man nicht in der Zeile verrutscht. ->erledigt