DELPHI / Merge Strings
MergeStrings(ListBox1.Items, ListBox2.Items);
}
procedure MergeStrings(Dest, Source: TStrings);
var i : integer;
begin
for i := 0 to -1 + Source.Count do
if Dest.IndexOf(Source[i]) = -1 then
Dest.Add(Source[i]);
end;
TurkIRC ©
