StringGrid erste Spalte nur Zahlen sonst Meldung schreiben

[Alterauge]

Hallo,

habe ein StringGrid, wo jetzt geprüft werden soll! Ob sich in der ersten Spalte 10 Zahlen Zeichen befinden (1234567897).
Sind jetzt keine 10 Zeichen (Zahlen) vorhanden, soll automatisch eine Meldung in der Spalte erstellt werden! (keine ID vorhanden).

Wie mache ich das?

[DeddyH]

Wenn Länge <> 10 oder mindestens ein Zeichen keine Ziffer -> Meldung. Was ist daran schwer umzusetzen?

[himitsu]

Die Werte der ersten Spalte in einer Schleife prüfen und bei einem Fehler den Wert der Zelle ändern?

Zum Prüfen kannst du Length und TryStrToInt (mit Int64, da Integer zu klein) verwenden.

[Alterauge]

Es müssen jetzt 10 Ziffern vorhanden sein, oder es wir ein Text in die Zeile eingefügt.
Wie schreibe ich die Überprüfung weiter?

Delphi-Quellcode:

 if StringGrid2.Cells [0,StringGrid.FixedRows] := ???;

[DeddyH]

Mach Dir doch einfach eine kleine Boolean-Funktion, die den zu überprüfenden String (und ggf. die erwartete Länge) entgegennimmt und zurückgibt, ob der String gültig ist.

[baumina]

So ein := hat noch in keiner If-Abfrage funktioniert. Vergleiche werden z.B. mit = gemacht.

[Alterauge]

Wie sieht so eine Boolean- Funktion aus?

[DeddyH]

Meine Güte:

Delphi-Quellcode:

function IsValidID(const IDStr: string; ExpectedLength: integer = 10): Boolean;
const
  VALID_CHARS = ['0'..'9'];
var
  Len, idx: integer;
begin
  Len := Length(IDStr);
  Result := Len = ExpectedLength;
  if Result then
    for idx := 1 to Len do
      if not CharInSet(IDStr[idx], VALID_CHARS) then
        begin
          Result := false;
          break;
        end; 
end;

Ungetestet.

[Alterauge]

danke :-) :)