Meine Drag'n'Drop-Funktion ergänzen

[DeddyH]

Delphi-Quellcode:

List2:=Explode('<>', List[i]);
try
  if List2.Count > 1 then
    ListBox1.Items.Insert(i, List2[1]);
  if List2.Count > 2 then
    ListBox2.Items.Insert(i, List2[2]);
  if List2.Count > 3 then
    ListBox3.Items.Insert(i, List2[3]);
  if List2.Count > 4 then
    ListBox4.Items.Insert(i, List2[4]);
finally
  List2.Free;
end;

Oder wenn alles erfüllt sein muss:

Delphi-Quellcode:

List2:=Explode('<>', List[i]);
try
  if List2.Count > 4 then
    begin
      ListBox1.Items.Insert(i, List2[1]);
      ListBox2.Items.Insert(i, List2[2]);
      ListBox3.Items.Insert(i, List2[3]);
      ListBox4.Items.Insert(i, List2[4]);
    end;
finally
  List2.Free;
end;