• Najnowsze pytania
  • Bez odpowiedzi
  • Zadaj pytanie
  • Kategorie
  • Tagi
  • Zdobyte punkty
  • Ekipa ninja
  • IRC
  • FAQ
  • Regulamin
  • Książki warte uwagi

Czy w stringu sa tylko liczby (sprawdzanie)

VPS Starter Arubacloud
0 głosów
224 wizyt
pytanie zadane 11 marca 2018 w Inne języki przez DragonCoder Nałogowiec (36,500 p.)

Witam,

pisalem kod sprawdzajacy czy w stringu sa tylko liczby. Chociaz moglem to zaznaczyc w ide, zeby mozna bylo podac tylko liczby, ale wolalem sam napisac ifa sprwdzajacego, ale cos nie wyszlo. Podam kilka mozliwosci:

n := Length(Edit1.Text);
for i:=1 to n do begin
if (Edit1.Text[i]='^') OR (Edit1.Text[i]='°') OR (Edit1.Text[i]='!')
OR (Edit1.Text[i]='"') OR (Edit1.Text[i]='§') OR (Edit1.Text[i]='$')
OR (Edit1.Text[i]='%') OR (Edit1.Text[i]='&') OR (Edit1.Text[i]='/')
OR (Edit1.Text[i]='(') OR (Edit1.Text[i]=')') OR (Edit1.Text[i]='=')
OR (Edit1.Text[i]='ß') OR (Edit1.Text[i]='?') OR (Edit1.Text[i]='´')
OR (Edit1.Text[i]='`') OR (Edit1.Text[i]='²') OR (Edit1.Text[i]='³')
OR (Edit1.Text[i]='{') OR (Edit1.Text[i]='[') OR (Edit1.Text[i]=']')
OR (Edit1.Text[i]='}') OR (Edit1.Text[i]='\') OR (Edit1.Text[i]='@')
OR (Edit1.Text[i]='€') OR (Edit1.Text[i]='+') OR (Edit1.Text[i]='*')
OR (Edit1.Text[i]='~') OR (Edit1.Text[i]='#') OR (Edit1.Text[i]=' ')
OR (Edit1.Text[i]='<') OR (Edit1.Text[i]='>') OR (Edit1.Text[i]='|')
OR (Edit1.Text[i]='µ') OR (Edit1.Text[i]=',') OR (Edit1.Text[i]=';')
OR (Edit1.Text[i]='.') OR (Edit1.Text[i]=':') OR (Edit1.Text[i]='-')
OR (Edit1.Text[i]='_') OR (Edit1.Text[i]='q') OR (Edit1.Text[i]='w')
OR (Edit1.Text[i]='e') OR (Edit1.Text[i]='r') OR (Edit1.Text[i]='t')
OR (Edit1.Text[i]='z') OR (Edit1.Text[i]='u') OR (Edit1.Text[i]='i')
OR (Edit1.Text[i]='o') OR (Edit1.Text[i]='p') OR (Edit1.Text[i]='ü')
OR (Edit1.Text[i]='a') OR (Edit1.Text[i]='s') OR (Edit1.Text[i]='d')
OR (Edit1.Text[i]='f') OR (Edit1.Text[i]='g') OR (Edit1.Text[i]='h')
OR (Edit1.Text[i]='j') OR (Edit1.Text[i]='k') OR (Edit1.Text[i]='l')
OR (Edit1.Text[i]='ö') OR (Edit1.Text[i]='ä') OR (Edit1.Text[i]='y')
OR (Edit1.Text[i]='x') OR (Edit1.Text[i]='c') OR (Edit1.Text[i]='v')
OR (Edit1.Text[i]='b') OR (Edit1.Text[i]='n') OR (Edit1.Text[i]='m')
OR (Edit1.Text[i]='Q') OR (Edit1.Text[i]='W')
OR (Edit1.Text[i]='E') OR (Edit1.Text[i]='R') OR (Edit1.Text[i]='T')
OR (Edit1.Text[i]='Z') OR (Edit1.Text[i]='U') OR (Edit1.Text[i]='I')
OR (Edit1.Text[i]='O') OR (Edit1.Text[i]='P') OR (Edit1.Text[i]='Ü')
OR (Edit1.Text[i]='A') OR (Edit1.Text[i]='S') OR (Edit1.Text[i]='D')
OR (Edit1.Text[i]='F') OR (Edit1.Text[i]='G') OR (Edit1.Text[i]='H')
OR (Edit1.Text[i]='J') OR (Edit1.Text[i]='K') OR (Edit1.Text[i]='L')
OR (Edit1.Text[i]='Ö') OR (Edit1.Text[i]='Ä') OR (Edit1.Text[i]='Y')
OR (Edit1.Text[i]='X') OR (Edit1.Text[i]='C') OR (Edit1.Text[i]='V')
OR (Edit1.Text[i]='B') OR (Edit1.Text[i]='N') OR (Edit1.Text[i]='M')
then begin                                                                         
for i:=1 to n do begin 
if (Edit1.Text[i]<>'0') OR (Edit1.Text[i]<>'1') OR (Edit1.Text[i]<>'2')
OR (Edit1.Text[i]<>'3') OR (Edit1.Text[i]<>'4') OR (Edit1.Text[i]<>'5')
OR (Edit1.Text[i]<>'6') OR (Edit1.Text[i]<>'7') OR (Edit1.Text[i]<>'8')
OR (Edit1.Text[i]<>'9') then
for i:=32 to 126 do begin
s := Edit1.Text + #i;
for j:=0 to n do begin
if (Edit1.Text[j]=s) then begin 

Zrobilem, taki mozliwosci. 1 i 2 dzialaja tylko i wylacznie w czesci. Bo jesli poda sie liczbe na dalszej pozycji niz pierwsza to i tak zadziala. 3. Sposob nie dziala, to pewnie wina przypisania stringa do #, gdzie # i liczba odpowiadaja charowi. Czy ma ktos pomysl, jak to rozwiazac?

Milego wieczorku 

DragonCoder

komentarz 11 marca 2018 przez xenonso Mądrala (5,160 p.)
nie lepiej użyć regexa?
komentarz 11 marca 2018 przez DragonCoder Nałogowiec (36,500 p.)
Nie pomyslalem o tym, ale dzieki za odpowiedz, przetestuje to :)

1 odpowiedź

+1 głos
odpowiedź 11 marca 2018 przez jeremus Maniak (59,720 p.)
może tak ?

try

   zamiana stringa na liczbę  np. StrToInt  

catch wyjątek

  komunikat ...
komentarz 11 marca 2018 przez DragonCoder Nałogowiec (36,500 p.)
Pomoglo, tylko ze zamiast catch uzylem finally. Dziekuje :)

Podobne pytania

0 głosów
2 odpowiedzi 1,192 wizyt
pytanie zadane 6 lutego 2018 w Inne języki przez DragonCoder Nałogowiec (36,500 p.)
0 głosów
1 odpowiedź 529 wizyt
0 głosów
1 odpowiedź 406 wizyt

92,455 zapytań

141,263 odpowiedzi

319,099 komentarzy

61,854 pasjonatów

Motyw:

Akcja Pajacyk

Pajacyk od wielu lat dożywia dzieci. Pomóż klikając w zielony brzuszek na stronie. Dziękujemy! ♡

Oto polecana książka warta uwagi.
Pełną listę książek znajdziesz tutaj.

Akademia Sekuraka

Akademia Sekuraka 2024 zapewnia dostęp do minimum 15 szkoleń online z bezpieczeństwa IT oraz dostęp także do materiałów z edycji Sekurak Academy z roku 2023!

Przy zakupie możecie skorzystać z kodu: pasja-akademia - użyjcie go w koszyku, a uzyskacie rabat -30% na bilety w wersji "Standard"! Więcej informacji na temat akademii 2024 znajdziecie tutaj. Dziękujemy ekipie Sekuraka za taką fajną zniżkę dla wszystkich Pasjonatów!

Akademia Sekuraka

Niedawno wystartował dodruk tej świetnej, rozchwytywanej książki (około 940 stron). Mamy dla Was kod: pasja (wpiszcie go w koszyku), dzięki któremu otrzymujemy 10% zniżki - dziękujemy zaprzyjaźnionej ekipie Sekuraka za taki bonus dla Pasjonatów! Książka to pierwszy tom z serii o ITsec, który łagodnie wprowadzi w świat bezpieczeństwa IT każdą osobę - warto, polecamy!

...