ošetrenie vstupu

camarovk19 · Napísal **camarovk19**: 12.12.2015 16:14 | ošetrenie vstupu

Robím zadanie v object pascale a neviem ako mám ošetriť nezadanie čísla do editu mohli by ste mi poradiť prosím? Ďakujem vopred

walther · Napísal **walther**: 12.12.2015 16:18 | ošetrenie vstupu

Podľa špecifikácie. Pokiaľ nemáš, podľa vlastného rozumného uváženia.

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 16:47 | ošetrenie vstupu

mám že ak zadám kladne číslo tak počíta počet cifier čísla to mám len treba ošetriť aby to záporné čísla to mám a aj to keď nezadám nič a to neviem ako mám ošetriť keď nezadám nič do editu

Miso122 · Napísal **Miso122**: 12.12.2015 17:52 | ošetrenie vstupu

na zaciatok dat podmienku

Kód:

if edit1.text='' then 
else ...

pripadne nastavit primarnu hodnotu na 0

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 18:11 | ošetrenie vstupu

nastavil som vlasnosť text na nulu a potom dal if ko a ide to dúfám že to tak môže byť a ešte jedna otázočka ako vymením keď zadám číslo N prvú a poslednú cifru tak že prvá cifra bude posledná a posledná prvá

Miso122 · Napísal **Miso122**: 12.12.2015 18:59 | ošetrenie vstupu

len prvú a poslednú či komplet celé číslo otočiť?

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 19:04 | ošetrenie vstupu

len zamenit prvu a poslednú cifru

Miso122 · Napísal **Miso122**: 12.12.2015 19:25 | ošetrenie vstupu

potrebujes k tomu 2 dalsie premenne, na prvu a poslednu cifru

Kód:

var cislo,vymenene:string; prva:char; posledna:integer;
begin
cislo:= edit1.text;
prva:= cislo[1];
posledna:= strtoint(cislo) mod 10;
vymenene:= cislo;
vymenene[length(vymenene)]:= prva;
vymenene[1]:=inttostr(posledna)[1];
end;

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 19:37 | ošetrenie vstupu

iba počet cifier to píše neviem prečo

Kód:

procedure TForm1.Button1Click(Sender: TObject);
var
  cisla:Integer;
  cislo,vymenene:string;
  prva:char;
  posledna:integer;
function pocet (vysledok:Integer):Integer;
var
  cislo:Integer;
       begin
          cislo:=StrToInt(Edit1.Text);
          vysledok:=0;
          while cislo>0 do
            begin
               cislo:=cislo div 10;
               vysledok:=vysledok+1;
            end;
          Result := vysledok;
       end;

begin
   cisla:=StrToInt(Edit1.Text);
   if cisla=0 then Label1.Caption:='Nezadal si číslo'
   else if cisla<0 then Label1.Caption:='Nemôžeš zadať záporné číslo'
   else
      begin
        cisla:=pocet(cisla);
        Label1.Caption:=IntToStr(cisla);
      end;
       cislo:= edit1.text;
       prva:= cislo[1];
       posledna:= strtoint(cislo) mod 10;
       vymenene:= cislo;
       vymenene[length(vymenene)]:= prva;
       vymenene[1]:=inttostr(posledna)[1];

end;

end.                                        

Miso122 · Napísal **Miso122**: 12.12.2015 19:40 | ošetrenie vstupu

mas tam 2x premennu cislo

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 19:46 | ošetrenie vstupu

to je cislo a cisla

Miso122 · Napísal **Miso122**: 12.12.2015 19:47 | ošetrenie vstupu

a vo funkcii pocet mas co?

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 19:50 | ošetrenie vstupu

premenoval som tú premennu a aj tak iba počet cifier píše

Miso122 · Napísal **Miso122**: 12.12.2015 19:58 | ošetrenie vstupu

a vypisujes ktoru premennu?

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 20:01 | ošetrenie vstupu

Kód:

procedure TForm1.Button1Click(Sender: TObject);
var
  cisla:Integer;
  cislo,vymenene:string;
  prva:char;
  posledna:integer;
function pocet (vysledok:Integer):Integer;
     var
       cisle:Integer;
       begin
          cisle:=StrToInt(Edit1.Text);
          vysledok:=0;
          while cisle>0 do
            begin
               cisle:=cisle div 10;
               vysledok:=vysledok+1;
            end;
          Result := vysledok;
       end;

begin
   cisla:=StrToInt(Edit1.Text);
   if cisla=0 then Label1.Caption:='Nezadal si číslo'
   else if cisla<0 then Label1.Caption:='Nemôžeš zadať záporné číslo'
   else
      begin
        cisla:=pocet(cisla);
        Label1.Caption:=IntToStr(cisla);
      end;
       cislo:= edit1.text;
       prva:= cislo[1];
       posledna:= StrToInt(cislo) mod 10;
       vymenene:= cislo;
       vymenene[length(vymenene)]:= prva;
       vymenene[1]:=IntToStr(posledna)[1];

end;                                                               

Netuším kde je chyba

Miso122 · Napísal **Miso122**: 12.12.2015 20:13 | ošetrenie vstupu

co tak na konci este vypisat tu premennu 'vymenene'?

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 20:17 | ošetrenie vstupu

jooj ďakujem pekne môžem poprosiť ešte o objasnenie ako funguje ten zdroják ktorý to vymieňa?

Miso122 · Napísal **Miso122**: 12.12.2015 20:22 | ošetrenie vstupu

Kód:

prva:= cislo[1];

premennej 'prva' pripadi znak cislo 1 z premennej 'cislo'

Kód:

posledna:= strtoint(cislo) mod 10;

premennej 'posledna' priradi posledne cislo z premennej 'cislo' (zvysok po deleni 10)

Kód:

vymenene:= cislo;

do premennej 'vymenene' nacita hodnotu z premennej 'cislo'

Kód:

vymenene[length(vymenene)]:= prva;

poslednemu znaku premennej 'vymenene' priradi hodnotu premennej 'prva'

Kód:

vymenene[1]:=inttostr(posledna)[1];

prvemu znaku premennej 'vymenene' priradi prvy znak premennej 'posledna'

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 20:39 | ošetrenie vstupu

a ešte jedna otázka prečo sú tam v hranatých zátvorkách tie jednotky?

Miso122 · Napísal **Miso122**: 12.12.2015 20:56 | ošetrenie vstupu

tým určuješ poradie v stringu, array. napr jeď je tam 1 tak prvý znak poľa, stringu

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 21:09 | ošetrenie vstupu

ahááááá to sú jednorozmerné polia že?

Miso122 · Napísal **Miso122**: 12.12.2015 21:09 | ošetrenie vstupu

hej, ale platí to aj pri stringu

camarovk19 · Napísal autor témy **camarovk19**: 12.12.2015 21:11 | ošetrenie vstupu

joooooj už chápem ďakujem pekne za objasnenie a aj za trpezlivosť ďakujem

ošetrenie vstupu

ošetrenie vstupu

Podobné témy

Osetrenie vstupu pre dve slova a viac

Osetrenie formulara

Bug/osetrenie

Vymena vstupu na jack

Ošetrenie/zabezpečenie Registracie?

Osetrenie ulozenia JAVA

Chemické ošetrenie spojov

Zdroj napätia bez priameho vstupu

Soft na nahrávanie vstupu zvuku ...

[C++] formatovanie vstupu zo suboru

osetrenie vstupov v delphi

osetrenie vstupov a DB

jquery - osetrenie trvania animacie

C-ošetrenie nulového menovateľa

Zmena vstupu a vystupu v Netbeans

Zákaz vstupu z ČR a SK