- Mi történik a szemeddel, ha napi 8 órát monitort nézel? | Orvos válaszol
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Házimozi haladó szinten
- OLED TV topic
- Milyen billentyűzetet vegyek?
- Milyen egeret válasszak?
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Hobby elektronika
- Milyen házat vegyek?
- Milyen Android TV boxot vegyek?
Hirdetés
(használd a CYBSEC25PH kuponkódot további 20 ezer ft kedvezményért!)
Új hozzászólás Aktív témák
-
TAZ155
csendes tag
Sziasztok.
Gondolom a megoldás igen egyszerű lessz.
A következő kérdésem az lenne hogy.....Adott egy Then, Else ággal megirt feltétel.
A Forrás:
unit szamol;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Button2: TButton;
Label2: TLabel;
Timer1: TTimer;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
varZ1,Z2 : Integer ;
begin
begin // Feltétel irás
// integráljuk az z1, z2-es értéket
Z1:=StrtoInt(Edit1.text); // hivatkozás a cellá-ra
Z2:=StrtoInt(Edit2.text);if ( z1 = z2 )
// ha z1 egyenlő z2-értékével akkor
// akkor then-ág lép érvényben.then
begin
ShowMessage ( 'Az értékek MEG eggyeznek ' )
end// ha z1 NEM egyenlő z2-értékével akkor
// akkor az else-ág lép érvényben.else
begin
ShowMessage ( 'Az értékek NEM eggyeznek meg ' )
end ;end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;end.
A program vége.
Alap állapotban a Delphi csak a számokat ismeri fel. (1,2,3 stb)
Melyik a helyes módja, hogy rá tudjuk beszélni hogy a betü karaktereke is gond nélkűl kezelje.
Meglátásom szerint , de ez csak az én véleményem.1. megoldás.
A Betű karakterekből ASCII értéket csinálunk.( Tehát szám érték lessz a végeredmény)
Hogyan????2. megoldás
A programozzunk Delphi 7 rendszerben cimű könyv szerint lehet integrálni a karakter készletet, és onnantól kezdve már nem okoz gondot hogy Betűt,vagy számot irunk be a programnak. Ezt a megoldást meg nem sikerült felélesztenem.
Hogyan????Ebben kérnék segitséget, infót.
Hali
Új hozzászólás Aktív témák
- Milyen okostelefont vegyek?
- Samsung Galaxy A55 - új év, régi stratégia
- Futás, futópályák
- Battlefield 6
- Mi történik a szemeddel, ha napi 8 órát monitort nézel? | Orvos válaszol
- Eredeti játékok OFF topik
- iPhone topik
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Házimozi haladó szinten
- OLED TV topic
- További aktív témák...
- Bomba ár! Acer Travelmate P214-53 - i5-1135G7 I 8GB I 512SSD I 14" FHD I Cam I W10 I Garancia
- GYÖNYÖRŰ iPhone 12 mini 128GB Purple -1 ÉV GARANCIA - Kártyafüggetlen, MS3394, 94% Akkumulátor
- BESZÁMÍTÁS! ASUS H510M i9 10900KF 32GB DDR4 512GB SSD RTX 3080 10GB RAMPAGE Shiva A-Data 750W
- GYÖNYÖRŰ iPhone SE 2020 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3582, 100% Akksi
- Bowers/Wilkins PX8 fejhallgatók (dupla Bluetooth eszköz csatlakoztatása!) (CSAK RENDELÉSRE)
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: Laptopműhely Bt.
Város: Budapest