Doppelter Eintrag markieren

[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.

[Simo]

Ich meine, wie könnte ich diese Funktion umprogrammieren/ korrigieren , dass sie es tut (Markierung der Zelle, in der ein doppelter Eintrag vorkommt !?)...

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;

Sie überprüft schon aber keine Markierung..

[Bjoerk]

Gar nicht. Schreib dir eine neue Methode. So von weitem: if iDoppeltcounter>1 then scheint mir da falsch zu sein?

[Jumpy]

Hatten wir das nicht alles hier schon durchgekaut?

Mach es doch einfach so, dass deine Funktion die (Koordinaten der) ermittelten Doppelten Zellen in eine Liste schreibt. Und im OnDraw des Stringrids wird halt immer in diese Liste geguckt, ob eine Zelle in einer Bestimmten Farbe gezeichnet werden soll.
Alternativ kann man die Farbe auch im Objekt der Zelle des Stringgrids hinterlegen, so eine Lösung hab ich auch schonmal hier gesehen, dann braucht man keine separate Liste.