Delphi 7-ben kellene darabolnom egy editboxba beírt számot. De mindig csak az elsőt tudom levenni a többit pl: 86-ból csak a 6-ost,12-ből csak a 2?
Az kellene hogy ha rákattintok a gombra akkor sorban levegye a számokat. Első kattintásra 58-ból a 8-ast másodikra az 5-öst és ezt addig még a szám el nem fogy?
procedure TForm1.Button4Click(Sender: TObject);
var
x, y:integer;
begin
x:=strtoint(edit1.Text);
y:=x mod 10;
end; //ennyi van eddig
válasza:"y:=x mod 10;"
Utána x-et oszd el tízzel (egész osztással), és újra a "mod", egy ciklusban.
válasza:// ciklus eleje
y:= x mod 10; // y kiír
x:= x div 10;
// ciklus vége, addig ismétel, amíg x>0
var
x, y:integer;
begin
x:=strtoint(edit1.Text);
y:=x mod 10;
x:=x div 10;
hát ha így csinálom már erre is azt írja hogy [Hint] Uszam.pas(83): Value assigned to 'x' never used és ha többször bemásolom alá ezt y:=x mod 10;
x:=x div 10; akkor meg kiírja ugyan ezt a Hintet csak már nem az x-re hanem az y-ra.
válasza:Ez csak egy figyelmeztetés, hogy az x vagy y változókat nem használod fel sehol. Nem hiba, csak jelez a fordító, hogy kiszámoltál valamit, de az eredménnyel nem kezdesz semmit, vagyis céltalan a számítás.
Az volt a feladat, hogy a számokat (y) valahogy tedd ki a képernyőre. Ha ezt megcsinálod, eltűnik a fordítási üzenet is, mert akkor felhasználtad a számítás eredményét. :)
További kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!