Doppelter Eintrag markieren

[Sir Rufo]

Es ist wirklich etwas konfus ... anyway bleiben wir mal bei dem StringGrid (auch wenn es nicht schön ist).

Ein TStringGrid bietet den Zugriff auf die Spaltenwerte per TStrings .

Also kann man eine Funktion schreiben, die diese Spaltenwerte als TStrings entgegennimmt und alle fehlerhaften Zeilen per dynamischen Array zurückliefert.

Da die Überschriften (wenn es welche gibt) da auch auftauchen benötigt man noch einen optionalen Parameter, der angibt, ab welcher Zeile die Überprüfung stattfinden soll.

Delphi-Quellcode:

type
  TDynIntArray = array of integer;

function CheckDuplicates( AStrings : TStrings; AStartIndex : Integer = 0 ) : TDynIntArray;
begin
  // hier die Überprüfung und doppelte Einträge in Result speichern
end;

Alle anderen Überprüfungen laufen nach dem gleichen Muster ab, prüfen halt nur andere Vorgaben.

Also kann man auch einen Typen deklarieren:

Delphi-Quellcode:

type
  TValidateStrings = function( AStrings : TStrings; AStartIndex : Integer = 0 ) : TDynIntArray {of object};

und damit die Auswahl pro Spalte festlegen und einfach aufrufen.