AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Doppelter Eintrag markieren

Ein Thema von Simo · begonnen am 5. Mai 2014 · letzter Beitrag vom 6. Mai 2014
 
Simo

Registriert seit: 28. Apr 2014
51 Beiträge
 
#1

Doppelter Eintrag markieren

  Alt 5. Mai 2014, 16:23
Delphi-Version: XE2
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 -)

Geändert von Simo ( 5. Mai 2014 um 16:27 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:20 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz