2 Arrays vergleichen...

[HeinzJ]

??

Delphi-Quellcode:

for lauf1 := 1 to j do begin
    for lauf2 := 1 to i do begin
       if sku[lauf1] = Tempsku[lauf2] then begin
         ShowMessage('OK');
       end else begin
         If sku[lauf1] = "leerwert" then
           ShowMessage('in sku nicht vorhanden')
         else  
           ShowMessage('in Tempsku nicht vorhanden')
       end;
    end;
end;

[finalr]

Zitat:

Zitat von HeinzJ

??

Delphi-Quellcode:

for lauf1 := 1 to j do begin
    for lauf2 := 1 to i do begin
       if sku[lauf1] = Tempsku[lauf2] then begin
         ShowMessage('OK');
       end else begin
         If sku[lauf1] = "leerwert" then
           ShowMessage('in sku nicht vorhanden')
         else  
           ShowMessage('in Tempsku nicht vorhanden')
       end;
    end;
end;

so hatte ich es auch schon ausprobiert...funktioniert aber nicht... habs aber jetzt gelöst und funzt einwandfrei... :)

Delphi-Quellcode:

 i := 2;
  Repeat
    j := 2;
    Repeat
      j := j + 1
    Until (sku[i] = Tempsku[j]) OR (Tempsku[j] = '');
    if sku[i] = Tempsku[j] then begin
      Temp.Cells[j, 2].Value := 'add';
    end ELSE BEGIN
       Temp.Cells[lauf2, 1].Value := sku[i];
       lauf2 := lauf2 + 1;
    END;
    i := i + 1;
  Until sku[i] = '';

  i := 2;
  Repeat
    j := 2;
    Repeat
      j := j + 1;
    Until (Tempsku[i] = sku[j]) OR (sku[j] = '');
    if TempSku[i] = sku[j] then begin
      // GEFUNDEN 
    end else begin
      Temp.Cells[i, 2].Value := 'delete';
    end;
    i := i + 1;
  Until Tempsku[i] = '';

Aber vielen Dank für eure Hilfe

gruss daniel