StringGrid erste Spalte auf Zahleninhalt überprüfen

[aldi]

Hallo,
möchte gerne im StringGrid die erste Spalte auf Zahleninhalt überprüfen.
Buchstaben sind ungültig !

wie kann ich dieses umsetzten?

Code: Alles auswählen

 
 if StringGrid1.Cells[1, StringGrid1.FixedRows] <>' ' then
   begin
      If not (Key in ['0'..'9', #8]) then
        Key := #0;
      end else begin
       Showmessage('TEST');
      end;   

[theo]

Ich möchte gerne Socken stricken, aber ROTE bitte.

Wie kann ich dies umsetzen?

Code: Alles auswählen

 
begin
Zimt; 
Fahrradschlauch;
Klopapier;
Kerzenständer;
end

[aldi]

würde dann aber auch rotes Klopapier nehmen!

wieso darf man hier unter (Einsteigerfragen) nicht verwirrte Fragen stellen?
ist doch extra für Einsteiger oder?
oder dürfen hier nur Profis Fragen stellen, oder unqualifizierte Kommentare von sich geben?

das ist doch keine Hilfestellung

[Linkat]

Hallo aldi,
ich kann theo verstehen. Sein Beispiel ist treffend. Du wirfst einfach ein paar Brocken hin und erwartest, dass irgend jemand die Brocken ordnet und ergänzt.. Mit deinem Wissensstand könntest du dir sicher ein bischen mehr Mühe geben und das Beispiel ein bischen weiter entwickeln. Es gibt bestimmt einige die dir gerne helfen. Aber du musst schon ein bischen mehr Vorarbeit leisten.
So fehlt z.B. die Schleife oder wo wird der Variablen key ein Wert zugewiesen, .....

Bitte gib dir ein bischen mehr Mühe und schon wird dir auch geholfen.

Gruß, Linkat

[aldi]

Hallo Linkat,

habe einfach nur eine Frage gestellt, und etwas verwirrten Quelltext beigefügt.
Aus diesem Quelltext kann man doch etwas erkennen oder?
Beziehungsweise verstehen, in welche Richtung es gehen soll.

[Linkat]

aldi,
das hat nichts mit Einsteigerfragen zu tun. Du musst dir als Hilfesuchender ein bischen mehr Mühe geben (ich bin auch sicher du kannst es). Es ist einfach zu aufwändig für die möglichen Helfer das Problem zu lösen. Du solltest vorher das Beispielprogramm so vorbereiten, dass nur noch eine Frage übrigbleibt, die dann sehr schnell beantwortet werden kann
Weiterhin viel Spass beim Programmieren mit Lazarus..

Gruß, Linkat

[aldi]

So habe jetzt eine eigene Lösung gefunden
Leider ohne Eure Unterstützung

Code: Alles auswählen

 
function numbers(s : string) : boolean;
var
   i : Integer;
begin
result := false;
for i := 0 to length(s) do
if s[i] in ['0'..'9'] then
 begin
  result := true;
  break;
 end;
end;

Code: Alles auswählen

 
if numbers(StringGrid1.Cells [1, StringGrid1.FixedRows]) then begin
  showmessage('Die Eingabe beinhaltet Zahlen');
  end else begin
  showmessage('Die Eingabe beinhaltet keine Zahlen');
  end;         

[Christian]

Stimmt schon selber denken is auch doof.

[mse]

Code: Alles auswählen

 
function numbers(s : string) : boolean;
var
   i : Integer;
begin
result := false;
for i := 0 to length(s) do
if s[i] in ['0'..'9'] then
 begin
  result := true;
  break;
 end;
end;

Da ist ein *böser* Fehler drin und vermutlich tut das Ding nicht was du möchtest.

[aldi]

Hallo mse,

was für einen bösen Fehler meinst Du?
Soweit funktioniert aber alles!

[Michl]

Mal abgesehen von den Fehlern, die Du in Deiner Schleife und Abfrage hast, ist die von Lösung von Dir nicht im ersten Post zu erahnen gewesen. Während Du dort vermutlich die gedrückten Tasten auswerten wolltest, ist die Lösung jetzt, einen schon eingegebenen String zu testen.

Für diese Aufgabe stellt die RTL diverse Methoden zur Verfügung: http://lazarus-ccr.sourceforge.net/docs ... dex-5.html
Noch als Hinweis: Pascal hat die schöne Eigenschaft, die Bezeichner meistens so zur Verfügung zu stellen, wie man spricht. D.h. für Dich z.B. "Versuche String in Integer umzuwandlen" -> "Try" heißt soviel wie "Versuche".

[m.fuchs]

Machen wir doch mal ein kleines Beispielprogramm:

Code: Alles auswählen

var
  s: String;
 
begin
  s := 'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa';
  if numbers(s) then
    WriteLn('numbers behauptet, dass s mindestens eine ziffer enthaelt')
  else
    WriteLn('numbers behauptet, dass s keine ziffer enthaelt');
  ReadLn;
end.

Was mag da für ein Ergebnis herauskommen?

Code: Alles auswählen

numbers behauptet, dass s mindestens eine ziffer enthaelt

Woran liegt das? In Pascal ist ein String nicht Null-basiert, d.h. der erste Buchstabe steht in s[1]. In s[0] hingegen wird (in einigen Fällen) die Länge des Strings abgelegt. In diesem Falle ist er 52 Zeichen lange, es steht als 52 in s[0]. Das wiederum entspricht dem ASCII-Zeichen '4' und das findet deine Funktion, freut sich darüber und behauptet eine Ziffer gefunden zu haben. Du müsstet also bei 1 starten in deiner Schleife.

Bei der Gelegenheit kannst du die Funktion noch umbenennen, damit klar ist was sie tut. ContainsNumbers wäre zum Beispiele eine gute Idee.

[mse]

was für einen bösen Fehler meinst Du?

Wie m.fuchs bereits geschrieben hat beginnt die Indizierung bei Strings bei 1 und nicht bei 0. Bei 0 liegt ein interner Bereich.

Soweit funktioniert aber alles!

möchte gerne im StringGrid die erste Spalte auf Zahleninhalt überprüfen.
Buchstaben sind ungültig !

Diese Forderung erfüllt deine Implementierung nicht.

[Komoluna]

Du gehst alle Zeichen durch, und fragst ab, ob es eine Ziffer ist. Wenn ja, dann beende die Funktion und gibt True zurück...

Also, wenn als String "30 Ziegen" eingegeben wird, erkennt deine Funktion das als Zahl an.

Da wir hier normalerweise keine Fertigen Ergebnisse liefern, schreibe ich mal Pseudocode:

Code: Alles auswählen

Setze Ergebnis auf True
Für jedes Zeichen von s tue:
  Wenn sich das Zeichen in dem Set ['0'..'9'] befindet, dann
    gehe zum nächsten Zeichen
  sonst
    Setze Ergebnis auf False
    Beende die Schleife

(In Pascal umgewandelt müsste er genau das machen, was du möchtest)

MFG

Komoluna

[m.fuchs]

Wobei ich (außer zu Ausbildungszwecken) nicht so eine Funktion selber entwickeln würde. Dazu gibt es ja passendes in der RTL. Der Hinweis von Michl hilft dann weiter.