Doppelter Eintrag markieren

[Simo]

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 -)

[p80286]

Zitat von Simo:

Falls in der Spalte ein doppelter Eintrag vorkommt, muss die Zelle(oder die ganze Zeile) markiert werden.?

Das solltest Du wissen!
Sinnvoll wäre es vllt. den Ursprungswert dunkelblau und die gleichen Werte in Hellblau zu marieren.
Was ist wenn 2..x Werte in der Spalte mehrfach auftauchen?

Zitat von Simo:

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 ??

Auch hier kommt es darauf ann was Du erreichen willst. Als erste Idee würde ich die entsprechende Zelle rot markieren.

Es soll allerdings auch Anwender geben, die Fehlerlisten bevorzugen:

Code:

Wert 123 aus Zelle x/y ebenfalls vorhanden in Zelle x1/y1
.....
Nicht integer Werte gefunden in
Zelle x1/y1 Zelle X2/y2 ......

Gruß
K-H

[Simo]

Danke für die Antwort!

Ich möchte die einzelne Spalten einer XML-Tabelle auf *doppelter Eintrag* und *Integer* überprüfen. Die Tabelle wird mit dem Editor geöffnet und ist voll/gefüllt von Daten. Ich muss den Inhalt nicht abfragen oder so..
Wenn ich im Menu über Datei "Speichern" klicke muss die Überprüfung durchgeführt und eine Fehlermeldung ausgegeben werden : z.B

Delphi-Quellcode:

 ...
//Da wird meine Funktion aufgerufen..'Create'
//Da zum Beispiel iResult:=TMyChek.PrüfaufdoppelterEintrag(MainGrid)...

if iResult<>0 then
Showmessage ('Vorsicht --> Doppelter Eintrag ',..) // und dann die Zelle/Zeile markieren 
FreeandNil(TMyChek)
...

das gleiche mit Integer, wenn ich die erste Spalte auf Integer überprüfen möchte, muss die ganze Spalte überprüft werden und der Inhalt darf nur 'Integer' sein, wenn das nicht der Fall soll eine Fehlermeldung ausgegeben werden und der Cursor soll hin'springen oder die Zelle markiert werden, wo es zum Beispiel statt Integer eine Float-Zahl vorkommt oder so...

die Erste Funktion tut's nur mit der Markierung nicht..
Die zweite Funktion... Da brauche ich Hilfe -)

LG
Simo

[Bjoerk]

Das kann z.B. mit den Objects eures StringGrids machen, ist aber nicht optimal. Eigentlich sollten Logik und Darstellung nicht vermischt werden.

Delphi-Quellcode:

procedure TForm1.MyStringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with (Sender as TStringGrid) do
  begin
    if Objects[ACol, ARow] <> nil then
    begin
      Canvas.Brush.Color := TColor(Objects[ACol, ARow]);
      Canvas.Font.Color := clBlack;
    end;
    Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[ACol, ARow]);
  end
end;

procedure CheckBedingung1(AStringGrid: TStringGrid; .. );
var
  Col, Row: integer;
begin
  for Col := AStringGrid.FixedCols to AStringGrid.ColCount - 1 do 
    for Row := AStringGrid.FixedRows to AStringGrid.RowCount - 1 do 
      if Bedingung1(AStringGrid) then
        AStringGrid.Objects[Col, Row] := Pointer(clInfoBK)
      else
        AStringGrid.Objects[Col, Row] := nil;
  AStringGrid.Invalidate;
end;

[Simo]

Kann ich das nicht mit meiner (obigen) Funktion machen !?
Einfach die schon programmierte Funktion korrigieren !?
Mit einer Abfrage oder so..

[Bjoerk]

Das war nur ein ein Beispiel. Du kannst das natürlich so machen oder auch anders, so wie du das halt brauchst und am besten in den bestehenden Quellcode passt.