StringGrid nach doppelten Einträgen durchsuchen

[sakura]

Zitat von Micha:

Ich hoffe mal mir kann bei meinem Problem wer weiterhelfen, bin leider noch net so fit in Delphi.

Also ich habe mir mal Mühe gegeben

Du findest anbei ein Demo-Projekt und den Code zum Durchsuchen des gesamten Grids, bzw. Auszügen daraus nach doppelten Einträgen

Unit1 ist das Demo-Form mit verschiedenen Einstellmöglichkeiten, für Dein Projekt ist es überflüssig

Die Unit CompareStringGridFields enthält die eigentlichen Routinen für Dein Projekt. GetClosestPrime.inc ist ein Primenzahlgenerator, welcher im Hintergrund arbeitet.

Nun zur Unit. Diese definiert 5 verschiedene Möglichkeiten nach doppelten Einträgen zu suchen.

Delphi-Quellcode:

function CheckGrid(
  aGrid: TStringGrid;
  // no specific parameters
  OnMatch: TOnMatch; IgnoreEmpty, TrimWhiteSpace, IgnoreCase: Boolean
): Int64;
function CheckGridCol(
  aGrid: TStringGrid;
  aCol: Integer;
  OnMatch: TOnMatch; IgnoreEmpty, TrimWhiteSpace, IgnoreCase: Boolean
): Int64;
function CheckGridRow(
  aGrid: TStringGrid;
  aRow: Integer;
  OnMatch: TOnMatch; IgnoreEmpty, TrimWhiteSpace, IgnoreCase: Boolean
): Int64;
function CheckGridSelection(
  aGrid: TStringGrid;
  // no specific parameters
  OnMatch: TOnMatch; IgnoreEmpty, TrimWhiteSpace, IgnoreCase: Boolean
): Int64;
function CheckGridRect(
  aGrid: TStringGrid;
  aRect: TGridRect;
  OnMatch: TOnMatch; IgnoreEmpty, TrimWhiteSpace, IgnoreCase: Boolean
): Int64;

1. durchsucht das GESAMTE Grid.
2. Durchsucht nur eine BESTIMMTE ZEILE des Grid
3. Durchsucht nur eine BESTIMMTE SPALTE des Grid
4. Durchsucht nur den SELEKTIERTEN BEREICH des Grid
5. Durchsucht nur den ANGEGEBENEN BEREICH des Grid

Diese Unit (in die INC Datei dazulegen) einfach in Dein Projekt einbinden und nutzen. Dazu kannst Du einen der jeweiligen Aufrufe frei wählen, übergibst das Grid, ggf. die benötigten Parameter und die Standardeinstellungen.

Alle Anweisungen zur Nutzung sind in der Unit enthalten.

......