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.