Hey Leute
Ich bin ein Anfänger in Delphi und brauche Ihre Unterstützung..
Ich muss die 15-Spalten einer
XML-Tabelle überprüfen : Doppelter Eintrag, Integer, Float..usw
Wenn ich z.B die Spalte 1 auf doppelter Eintrag überprüfe, muss die Zeile, in der der Eintrag zwei mal vorkommt markiert werden (Oder Cursor muss hin...).
Delphi-Quellcode:
function TMyChek.MyChekGleich(StringGrid:TggStringGrid):Integer ;
var
a , b ,c : integer;
Inhalt_Check : string;
iDoppeltcounter:integer;
begin
iDoppeltcounter:=0;
Result:=-3;
b:= StringGrid.RowCount; // Anzahl der Zeilen...
for a:=0 to b do begin
Inhalt_Check:=StringGrid.Cells[0,a]; // Zeile Um 1 erhöhen...
for c:=0 to b do begin
if Inhalt_Check=StringGrid.Cells[0,c] then begin
iDoppeltcounter:=iDoppeltcounter+1;
if iDoppeltcounter>1 then begin
Result:=c;
StringGrid.Selection:= TGridRect(Rect(0,Inhalt_Check)); //...??
exit;
iDoppeltcounter:=0;
end;
end;
end;
end;
end;).
Es klappt nicht mit der Markierung oder (Cursor weiss ich gar nicht wie..)
Wäre sehr dankbar wenn Sie mir helfen können
