Hallo zusammen!
Ich habe eine Funktion geschrieben, die einzelne Spalten auf 'Doppelter Eintrag' überprüft.
Delphi-Quellcode:
function TMyChek.MyChekGleich(StringGrid:TggStringGrid; SpaltenNr:Integer):Integer ;
var
a , b ,c : integer;
Inhalt_Check : string;
iDoppeltcounter:integer;
begin
iDoppeltcounter:=0;
Result:=-3;
b:= StringGrid.RowCount;
for a:=0 to b-1 do begin
Inhalt_Check:=StringGrid.Cells[SpaltenNr,a];
for c:=a+1 to b-1 do begin
if Inhalt_Check=StringGrid.Cells[SpaltenNr,c] then begin
Inc(iDoppeltcounter);
if iDoppeltcounter>1 then begin
Result:=c;
//StringGrid.Selection:= ??
exit;
iDoppeltcounter:=0;
end;
end;
end;
end;
end;
Falls in der Spalte ein doppelter Eintrag vorkommt, muss die Zelle(oder die ganze Zeile) markiert werden.?
Außerdem muss ich eine Funktion programmieren, die alle Zellen einer Spalte auf Integer überprüft und dann eine Fehlermeldung (markierung/..) ausgibt, wenn das nicht der Fall ist ??
Ich hoffe, dass mir jemand helfen kann -)