Delphi-PRAXiS - Doppelter Eintrag markieren

Leider ist die Aufgabe bissle umfangreich..
Hier ist die Aufgabe :

Ein XML-Editor ist schon programmiert! Hat ein Menu wie jedes anderes Programm : Datei --> Oeffnen, speichern, speichern unter, schließen) Extras..usw.
Mit dem Editor werden Dateien bearbeitet,editiert. Mit Hilfe vom Editor lassen sich große Dateien als XML-Tabellen öffnen. Diese Tabellen enthalten mehrere Spalten(15) mit unterschiedlichen Inhalten. Die Elementnamen werden als Spaltenüberschriften verwendet (Name, Nummer, Einheit...).

Die Aufgabe :
Es soll eine Möglichkeit vorgesehen werden, den Inhalt der einzelnen Spalten auf zulässige Werte/Inhalte zu überprüfen ( Auf doppelter Eintrag, Integer..usw.). Es gibt aber 5 XML-Tabellen. die Elementnamen ändern sich.

Dem schon vorhandenen Projekt wird eine neue Unit hinzugefügt, wo die Funktionen, die überprüfen, programmiert werden. Dann soll dem Projekt eine VCL-Formular hinzugefügt werden. Auf dieser Formular wird folgendes platziert : die Erste ComboBox1 für die Auswahl der Regel, die angewendet werden muss (einfach Regel1..Regel2..) . Dann in einer GroupBox 15-ComboBoxen mit 15 Labeln (LabelN(SpalteN) ---> ComboBoxN , N=1,2,3..) untereinander. In diesen 15-ComboBoxen sind bisher 3 gleiche Items = also meine Funktionen 'MyChekGleich' 'MyChekInteger' 'MyChekFloat' (MyChekGleich = heisst die überprüft auf doppelter Eintrag). so habe ich sie einfach genannt.
Und unten einfach ein Button zum speichern dieser Einstellungen am Ende.(in einem File)

Da es verschieden Tabellen gibt, ändern sich diese Einstellungen : D.h bei einer Tabelle wird die erste Spalte auf Integer überprüft und die zweite Spalte auf doppelter Eintrag..usw. Bei der anderen Tabelle wird die erste Spalte auf Float und die zweite auf doppelter Eintrag..usw. Deswegen gibt's diese 15-ComboBoxen, wo man beliebig auswählen/einstellen kann, welche Funktion für welche Spalte... Es kann auch sein dass ich zum Beispiel die Spalte 5 gar nicht überprüfen möchte, dann gehe ich zu ComboBox5 und wähle da items 'leer'.
Also ich muss gar nicht den Inhalt der Tabelle abfragen sondern überprüfen, weil sie schon mit Daten gefüllt sind.

So kann man sich das vorstellen :
Ich starte mein Editor und gehe zum Menu : Datei --> Öffnen.. dann öffne ich eine Tabelle (mit 15Spalten) und rufe meine Formular über Extras auf. Da kann ich im ComboBox1 die Regel 'zum Beispiel 'MyRegeln1' auswählen. dann gucke ich mir die Tabelle an und mache meine Einstellungen in den ComboBoxen : ich wähle z.B im ComboBox1 (für Spalte1) die Funktion 'MyChekGleich' aus und im comboBox5 'MyChekGleich' dann sollen die Spalte 1 und 5 auf doppelter Eintrag überprüft werden.und lasse die anderen leer. Am Ende speicher ich diese Einstellungen und gehe zum Menu : Speichern..dann sollen diese Überprüfungen durchgeführt und eine Fehlermeldung ausgegeben werden (Zeile markieren wo es Integer sein soll oder ein Doppelter Eintrag vorkommt..). Aber Erst beim Speichern.

Meine 3 Code :
1.Zuerst die 3 Funktionen
2.VCL-Formular (Code)
3.(Abfrage beim Prozedur SpeichernClick.. war schon programmiert)

Zu Code 1 :Normale Unit, die werden hier Funktionen programmiert :

Delphi-Quellcode:

			unit MyChkXML;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes,Forms, Dialogs, ExtCtrls,

StdCtrls, Buttons,ggStringGrid,Grids ;

type

  TMyChek = class

  private

  public

    function MyChekGleich(StringGrid:TggStringGrid; SpaltenNr:Integer):Integer ;

    function MyChekIntegerr(s:String):Boolean;

    function MyChekInteger(StringGrid:TggStringGrid;SpaltenNr:Integer):Boolean;

    function MyChekFloat(S:string) :Boolean;

    //procedure StartePruefung;

    //procedure PruefeCombobox(Sender :TObject ;Nr :integer);

  end;

implementation

uses

Regeln ;

////////////////////// Prüft, ob ein doppelter Eintrag vorkommt ///////////////

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; // Anzahl der Zeilen...

  for a:=0 to b-1 do begin

    Inhalt_Check:=StringGrid.Cells[SpaltenNr,a]; //Zeile Um 1 erhöhen...

     for c:=a+1 to b-1 do begin

        if Inhalt_Check=StringGrid.Cells[SpaltenNr,c] then begin

           Inc(iDoppeltcounter); //iDoppeltcounter:=iDoppeltcounter+1;

             if iDoppeltcounter>1 then begin

                 Result:=c;

                 StringGrid.Selection := TGridRect(Rect(SpaltenNr,a,SpaltenNr,c));

                 exit;

                 iDoppeltcounter:=0;

             end;

        end;

     end;

  end;

end;

///////////////////////////////////////////////////////////////////////////////

// Überprüft ob der Inhalt aus Zahlen besteht...

function TMyChek.MyChekInteger(StringGrid:TggStringGrid;SpaltenNr:Integer):Boolean;

var

  i, b ,Timer:Integer;

  input:String;

  output:integer;

begin

  b:= StringGrid.RowCount;

  Timer:=0;

  Result:=true;

  for i:=0 to b-1 do begin //Grid.Rows.Count-1?

   input:=StringGrid.Cells[SpaltenNr,i];

     if not TryStrToFloat(input,output)then begin

       if Result then

        ShowMessage('Spalte: '+IntToStr(SpaltenNr)+', Regel: 1 (CheckInteger)');

        ShowMessage('Fehler in Reihe '+IntToStr(i)+': ' +input);

         Result:=false;

          end;

       end;

    end;

//////////////////// Überprüft, ob ein String eine Float Zahl ist //////////////

function TMyChek.MyChekFloat(S: string): Boolean;

//var

  //Row,r : integer;

begin

  //Row:=StringGrid.RowCount;

  try

    //for r:=0 to Row do

    //S=StringGrid.Cells[1,r];

    StrToFloat(S); // String in Float umwandeln..

    Result := True;

  except

    Result := False;

  end;

end;

Zu Code2 (Unit2) : Code+Design

Delphi-Quellcode:

			unit Regeln;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.StdCtrls, MyChkXML,

  BATM4XML, ggStringGrid, Grids ;

  type

    Regel = record

      Spalte : Array [1..15] of string ;

      Kriterium : string ;

    end;

    const MaxAnzahlRegeln=9;

    const SpaltenAnzahl=15;

    var

    MyRegeln : Array [1..MaxAnzahlRegeln] of Regel;

 type

  TFMRegeln = class(TForm)

    Label1: TLabel;

    GroupBox1: TGroupBox;

    Spalte1: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    ComboBox3: TComboBox;

    ComboBox4: TComboBox;

    ComboBox5: TComboBox;

    ComboBox6: TComboBox;

    ComboBox7: TComboBox;

    ComboBox8: TComboBox;

    ComboBox9: TComboBox;

    ComboBox10: TComboBox;

    ComboBox11: TComboBox;

    ComboBox12: TComboBox;

    ComboBox13: TComboBox;

    ComboBox14: TComboBox;

    ComboBox15: TComboBox;

    ComboBox16: TComboBox;

    SaveBtn: TButton;

    Edit1: TEdit;

    MainGrid: TggStringGrid;

    procedure SaveBtnClick(Sender: TObject);

    procedure ComboBoxChangeAlg(Sender: TObject);

    //procedure StartePruefung;

    //procedure PruefeCombobox(Sender :TObject ;Nr :integer);

  private

    { Private-Deklarationen }

  public

  { Public-Deklarationen }

  fileName : String;

  fileData : TStringList;

  end;

  var

  FMRegeln: TFMRegeln;

implementation

uses

  unit1;

{$R *.dfm}

/////////////////////////////////////////////////////////////////////////////

 {if Pos(filename,Edit1.Text)<>0 then begin}

procedure TFMRegeln.ComboBoxChangeAlg(Sender: TObject);

begin

  MyRegeln[STrToInt(ComboBox1.Text)].Spalte[(Sender as TComboBox).Tag]:=(Sender as TComboBox).Text;

end;

{procedure TMyChek.StartePruefung;

var i:integer;

begin

  for i:=1 to 15 do

    PruefeCombobox(i);

end;

procedure TMyChek.PruefeCombobox(Nr : integer);

var cb:TCombobBox ;

begin

  cb:=TComboBox(FindComponent('ComboBox'+IntToStr(Nr)));

  if cb.Text='MyCheckGleich' then

    MyChekGleich(Grid:TStringGrid,Nr)

  else if cb.Text='MyCheckInteger' then

    MyChekInteger(Grid:TStringGrid,Nr)

  else if cb.Text='MyCheckFloat' then

    MyChekDouble(Grid:TStringGrid,Nr)

  else

    //Kein Check für Spalte Nr

end;   }

////////////////// Wird aufgerufen, wenn SaveBtn gedrückt ist../////////////////

procedure TFMRegeln.SaveBtnClick(Sender: TObject);

var

  i:integer;

  sAktDir:string;

 begin

  sAktDir:=GetCurrentDir;

  fileData:= TStringList.Create;

  fileData.add('Regeln');

  fileData.add('Regel :'+ComboBox1.Text);

  fileData.add('Kriterium für die Anwendung der Regel:'+ Edit1.Text);

  for i := 1 to SpaltenAnzahl do

  fileData.add('Spalte:'+MyRegeln[StrToInt(ComboBox1.Text)].Spalte[i]);

  fileName:= sAktDir +'\Test.txt';

  //fileName:= ExtractFilePath(Paramstr(0))+'Test.txt';

  if fileName <> '' then begin

    fileData.SaveToFile(fileName);

      fileData.free;

        SaveBtn.Enabled := true;

          close;

    end;

  end;

end.

Zu Code 3 : Beim Prozedur Speichern die Abfrage machen..

Delphi-Quellcode:

			procedure TForm1.Speichern1Click(Sender: TObject);

var

  MyXML:TBATM4XMLClass;

  MyCheck:TMyChek;

  iResult :integer;

  b : Boolean;

begin

  MyCheck:=TMyChek.Create;

  iResult:=MyCheck.MyChekGleich(MainGrid); // Fehler..ungenügend Parameter..

  //b:=MyCheck.MyChekInteger('10.4');

  if iResult<>-3 then begin

     Showmessage(' Doppelter Eintrag : '+ IntTostr(iResult));

  end;

  //...

  Freeandnil(MyCheck);

  if UPPERCASE(copy(Filename,length(Filename)-2,3)) = 'TXT' then begin

    SavetextFile();

....???