|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.625 Beiträge
Delphi 12 Athens
|
AW: Zwei Listen filtern Denkproblem
28. Mai 2019, 13:17
Delphi-Quellcode:
for j := Staedte2.Count - 1 downto 0 do
begin
Stadt1 := Staedte2.Strings[j].Split([','])[0];
Stadt2 := Staedte2.Strings[j].Split([','])[1];
if (Staedte1.IndexOf(Stadt1) < 0) or (Staedte1.IndexOf(Stadt2) < 0) then
Staedte2.Delete(j);
end;
Ungetestet und auch nicht wirklich performant, müsste aber tun.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|