Hallo
Hab mal wieder ne kleine Bescheidene Frage.
Ich hab den Inhalt der Zwischenablage einem String zugewiesen. Und vorher auch schon getestet ob es nur Text ist. Soweit so gut.
Jetzt möchte ich aber diesen Text nach allen
ANSI's durchsuchen außer
nach den Ziffern 0 bis 9. Falls ein anderes Zeichen außer den Ziffern enthalten ist, ist der Text ungültig und darf nicht in's Editfeld eingefügt werden.
Habe schon hier verzweifelt gesucht und auch in der Hilfe nachgesehen.
Aber ich seh den Wald vor lauter Bäumen mal wieder nicht.
Bis jetzt sieht es so aus:
Delphi-Quellcode:
procedure TForm1.Einfuegen1Click(Sender: TObject);
var
Eingabe, Ausgabe, Zeichen: String;
begin
begin
if not 'bla bla bla Zwischenablage nix Text usw. das übliche' then
Application.MessageBox('bla bla bla','bla bla',48)
else
Eingabe := Clipboard.AsText;
'Hier sollte nun vom ersten Zeichen an geprüft werden ob obiges zutrifft
wenn dann ein Zeichen gefunden wird das keine Ziffer ist soll ne Fehlermeldung kommen und gut'
'ansonsten gehts hier weiter'
Hoffe mir kann jemand helfen.
Gruß Arma.