Doppelter Eintrag markieren

[p80286]

Obwohl es schon mehrfach erwähnt wurde
Überprüf die Daten in einer Datenstruktur, und nicht in einem Stringgrid!
Wenn die Daten aus einer XML-Datei gelesen werden, sollte es ein leichts sein, schon während des Einlesevorgangs eine Prüfung vorzunehmen. Dann wäre man auch nicht auf die 1...14. Spalte angewiesen sondern kann gleich mit den richtigen Namen arbeiten.
(XML-Tabelle ist scharf!)

Was die eigentliche Aufgabenstellung angeht, die ich für etwas konfus halte, ich sehe nicht, daß dort zwingend vorgegeben ist, daß Du mit einem Stringgrid arbeiten sollst. Dié Anzeige soll dort erfolgen, aber die eigentliche Prüfung?

Und bevor hier nochmals etwas durchgekaut wird, weil wir aneinander vorbeireden, wenn Du etwas nicht verstehst, dann sag das und wiederhole nicht was schon vorher nicht zu einer zielführenden Antwort gereicht hat.

Gruß
K-H

[Sir Rufo]

Es ist wirklich etwas konfus ... anyway bleiben wir mal bei dem StringGrid (auch wenn es nicht schön ist).

Ein TStringGrid bietet den Zugriff auf die Spaltenwerte per TStrings .

Also kann man eine Funktion schreiben, die diese Spaltenwerte als TStrings entgegennimmt und alle fehlerhaften Zeilen per dynamischen Array zurückliefert.

Da die Überschriften (wenn es welche gibt) da auch auftauchen benötigt man noch einen optionalen Parameter, der angibt, ab welcher Zeile die Überprüfung stattfinden soll.

Delphi-Quellcode:

type
  TDynIntArray = array of integer;

function CheckDuplicates( AStrings : TStrings; AStartIndex : Integer = 0 ) : TDynIntArray;
begin
  // hier die Überprüfung und doppelte Einträge in Result speichern
end;

Alle anderen Überprüfungen laufen nach dem gleichen Muster ab, prüfen halt nur andere Vorgaben.

Also kann man auch einen Typen deklarieren:

Delphi-Quellcode:

type
  TValidateStrings = function( AStrings : TStrings; AStartIndex : Integer = 0 ) : TDynIntArray {of object};

und damit die Auswahl pro Spalte festlegen und einfach aufrufen.

[Simo]

Da ich ein Anfängen bin, frage ich noch mal ob es möglich wäre, die von mir geschriebene Funktionen (3 Code) zu korrigieren? weil ich leider nicht alles verstehe, was mir vorgeschlagen wird (nicht böse gemeint..).

Mir geht's nur darum, wie gesagt um die zwei Zeilen..:
Spalte[(Sender as TComboBox).Tag]:=(Sender as TComboBox).Text;// Tag=1...15 für die 15-Cmbxen Und

Delphi-Quellcode:

function TMyChek.MyChekGleich(StringGrid:TggStringGrid; SpaltenNr:Integer):Integer ;
...
Inhalt_Check:=StringGrid.Cells[SpaltenNr,a]; // SpaltenNr??

Wie übergebe ich der Funktion die Nummer der Spalte, damit sie diese überprüft (die angesprochene ComboBox über die Eigenschaft 'Tag'??


P.S : Wenn es falsch ist und nicht gehen würde, dann danke ich allen für Ihre Hilfe.. Egal -)

[Jumpy]

Meiner Meinung nach musst du mal überlegen, wann die Prüfung stattfinden soll. Einerseits sagst du es soll geprüft werden, wenn ein Speichern-Knopf gedrückt wird, andererseits präsentierst du eine Codezeile die nach dem OnChange-Ereignis einer Combo-Box aussieht:

Zitat von Simo:

Spalte[(Sender as TComboBox).Tag]:=(Sender as TComboBox).Text;// Tag=1...15 für die 15-Cmbxen

Im Falle Prüfung nach drücken des Speichern Knopfes, brauchst du den ganzen "Sender as TCombobox" usw.-Quatsch ja gar nicht sondern würdest einfach alle 15 Comboboxen der Reihe nach durchgehen und die entsprechende Regel anwenden.