Vielen Dank Ralph -)
Die Idee ist eigentlich gut -)
Und wo gehört denn das Code? Wo tue ich genau die Abfragen..
Was muss ich dann in meiner Funktion ändern/umprogrammieren ?
Delphi-Quellcode:
function TMyChek.MyChekGleich(StringGrid:TggStringGrid; Spaltennummer:Integer):Integer ;
//wobei ich die Funktion umbennenen würde, in das was sie macht, nämlich die erste Zeile liefern, //in der was doppelt vorkommt also somit sowas wie:
//function TMyChek.GetFirstRepetition(StringGrid:TggStringGrid; Spaltennummer:Integer):Integer ;
var
a , b ,c : integer;
Inhalt_Check : string;
iDoppeltcounter:integer;
begin
iDoppeltcounter:=0;
Result:=0;//Ich würde sagen, wenn 0 zurückkommt, gibt es keine Doppelten
b:= StringGrid.RowCount; // Anzahl der Zeilen...
for a:=0 to b do begin //müsste meiner Meinung nach b-1 sein
Inhalt_Check:=StringGrid.Cells[Spaltennummer,a]; //Zeile Um 1 erhöhen...
for c:=0 to b do begin //b-1 s.o.?
if Inhalt_Check=StringGrid.Cells[Spaltennummer,c] then begin
//iDoppeltcounter:=iDoppeltcounter+1;
Inc(iDoppeltcounter);
if iDoppeltcounter>1 then begin
Result:=c;
//StringGrid.Selection:=
exit;
iDoppeltcounter:=0;
end;
end;
end;
end;
end;
Das gleiche kann ich dann für die anderen Funktionen machen.
Wie siehts das ganze aus ?
Delphi-Quellcode:
procedure TFMRegeln.ComboBoxChangeAlg(Sender: TObject);
begin
MyRegeln[STrToInt(ComboBox1.Text)].Spalte[(Sender as TComboBox).Tag]:=(Sender as TComboBox).Text;
end;
??