Doppelter Eintrag markieren

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

[Simo]

Danke Bjoerk.. Nein ist nicht falsch. Laut der Aufgabenstellung!

@ Ralph, Vielen Dank für letztes mal :Ja. Es geht einfach um folgendes Problem : Also meine Funktion tut's ja (Überprüft die einzelne Spalten aber nur wenn ich das eingebe [0,c] oder [1,c]...) Aber wenn ich sie allgemein mache D.h statt

Delphi-Quellcode:

 for a:=0 to b-1 do begin
    Inhalt_Check:=StringGrid.Cells[0,a]; //...
     for c:=a+1 to b-1 do begin
        if Inhalt_Check=StringGrid.Cells[0,c] // Erste Spalte überprüfen...

Mit SpaltenNr :

Delphi-Quellcode:

for a:=0 to b-1 do begin
    Inhalt_Check:=StringGrid.Cells[SpaltenNr,a]; //Welche Spalte..?
     for c:=a+1 to b-1 do begin
        if Inhalt_Check=StringGrid.Cells[SpaltenNr,c]

Muss der Funktion die Nummer der Spalte (SpaltenNr) übergegeben werden.
SpaltenNummer wäre wie schon gesagt die Nummer der ComboBoxen in der anderen Unit. wenn ich was im ComboBox2 auswähle dann ist SpaltenNr = 2 und muss der Funktion übergegeben werden..

Außerdem habe nur ein Prozedur (ComboBoxChangeAlg) für alle 15-ComboBoxen benutzt. D.h bei ComboBox1 die Eingeschaft 'Tag' auf 1 gesetzt und ComboBox2 Tag =2.. damit ich sie über diese Eigenschaft 'Tag' anspreche.. :

Delphi-Quellcode:

procedure TFMRegeln.ComboBoxChangeAlg(Sender: TObject);

begin
  Spalte[(Sender as TComboBox).Tag]:=(Sender as TComboBox).Text; // Ausgewählte Text(Funktion) zuweisen...
end;

Wie sage ich (der Funktion) dass SpaltenNr = Wert der Eingeschaft 'Tag' ist ? :

Delphi-Quellcode:

 
StringGrid.Cells[SpaltenNummer=[(Sender as TComboBox).Tag,c]

Ich möchte die Eingeschaft 'Tag' ausnutzen...übergeben!

LG

[Sir Rufo]

Den gesamten Aufwand könnte man sehr schön vereinfachen, wenn das Grid nur für Ein-/Ausgabe verwendet wird und die eigentliche Verwaltung in einer separaten Struktur erfolgt.

Dort findet dann die Validierung statt und das Grid braucht sich nur noch um die Anzeige und die Eingabe kümmern.

Delphi-Quellcode:

TDataItemState = ( disNotUnique, disInvalidValue );
TDataItemStates = set of TDataItemState;

TData = class
public
  property Count : Integer; // Anzahl der Items
  property Items[Index : Integer] : TDataItem read GetItems; // Zugriff auf jedes einzelne Item
  property ItemStates[Index : Integer] : TDataItemStates read GetItemStates; // Zugriff auf den Item-Status
  property IsValid : Boolean read GetIsValid; // True, wenn alle Items valid sind -> Dem Speichern steht nichts im Wege
end;

[Simo]

Ja. Danke..
Leider muss ich es so machen, wie ich es da erklärt habe! Aufgabenstellung..

[Sir Rufo]

Zitat von Simo:

Ja. Danke..
Leider muss ich es so machen, wie ich es da erklärt habe! Aufgabenstellung..

Wäre es dann nicht gut gewesen die Aufgabenstellung hier wortwörtlich zu posten (bzw. alle relevanten Teile)?
Und da steht tatsächlich, dass du ausschließlich ein StringGrid benutzen darfst, sonst nichts?
Records, Klassen, etc. sind alle verboten?

Hört sich komisch an, aber wenn es so ist ...