Hirdetés
Hirdetés
Ú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
Hozzáteszem nagyon kezdő vagyok a Delphi programozásban. De valahól el kell kezdeni!!??
Új hozzászólás Aktív témák
- Samsung Galaxy Z Fold3 5G - foldi evolúció
- OLED TV topic
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Wise (ex-TransferWise)
- Projektor topic
- Futás, futópályák
- Lakáshitel, lakásvásárlás
- Százmillió Samsung telepítheti a One UI 6.1-et és a Galaxy AI-t
- Crypto Trade
- Rezsicsökkentés, spórolás (fűtés, szigetelés, stb.)
- További aktív témák...
- Lenovo Thinkpad T480s, FHD IPS érintőkij, i5-8350U (8 v.mag) 16GB RAM, 256GB NVMe, Magyar vil bill
- Olcsó számítógép játékra! I3 10100F / GTX 1660 Super / 16GB DDR4 / 500GB SSD
- AKCIÓ! GAMER PC - RYZEN 5500 - RTX 2060 SUPER 8GB - 16GB DDR4 - 240GB SSD - 1TB HDD
- Szücsivill Kft - villanyszerelés - kamera rendszerek - okos otthon
- ZOTAC GeForce GTX 1080 Ti AMP Extreme