2 Arrays vergleichen...

[dominikkv]

Delphi-Quellcode:

for lauf1 := 1 to j do 
  begin 
    gefunden := False;
    for lauf2 := 1 to i do 
      if sku[lauf1] = Tempsku[lauf2] then 
        begin 
          gefunden := True;
          Break;
        end;
    if Gefunden then
      ShowMessage('OK') else
      ShowMessage('nicht in TempSku!'); 
  end;

for lauf1 := 1 to j do 
  begin 
    gefunden := False;
    for lauf2 := 1 to i do 
      if sku[lauf2] = Tempsku[lauf1] then 
        begin 
          gefunden := True;
          Break;
        end;
    if Gefunden then
      ShowMessage('OK') else
      ShowMessage('nicht in Sku!'); 
  end;

viel spass beim "ok" klicken^^