Hallo Leute,
Brauche mal euere Meinung, also ich habe 3 Stringlisten, slBase, slTemp und slNeu, die werden als folgt
verarbeitet.
Delphi-Quellcode:
slBase := TStringList.Create;
....
slBase.LoadFromFile('C:\Test\Base.db'); //DBase mit allen Items Laden//
....
Delphi-Quellcode:
slNeu := TStringList.Create;
....
for i:=0 to simplerss.Items.count -1 do
begin
slNeu.Add(SimpleRSS.Items.Items[i].Title); //20 neue Items laden//
end;
....
Delphi-Quellcode:
slTemp := TStringList.Create;
....
for j := 0 to slNeu.Count -1 do
begin
if not slBase.IndexOf(slNeu.Strings[j]) > -1 then //slNeu String nicht in slBase vorhanden?//
slTemp.Add(slNeu.Strings[j]); //Dann String in slTemp einfuegen//
end;
....
if slTemp.Text <> '' then //Wenn slTemp nicht leer ist//
begin
for k := slTemp.Count -1 downto 0 do
begin
slBase.Insert(0, slTemp.Strings[k]); //String in slBase einfuegen//
....
slBase.SaveToFile('c:\Test\Base.db');//Neue DBase speichern//
//////////////////////Alles freigeben///////////////////////////////////
slBase.Free;
slNeu.Free;
slTemp.Free;
Hiermit vergleiche ich also die StringListe(slBase) mit der StringListe(slNeu), jetzt meine Frage ist meine Vorgehensweise ok oder habt ihr Verbesserungsvorschlaege?
Dank im voraus.
MFG Lucius.