- Milyen széket vegyek?
- Milyen notebookot vegyek?
- MILC felhasználók szakmai topikja
- Vezetékes FEJhallgatók
- Nagyon nem szokványos módon ment tönkre egy ASML gép Kínában…
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Számítógépház-választás 2025: airflow, kompatibilitás és hibák
- Philips LCD és LED TV-k
- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Házimozi belépő szinten
Új hozzászólás Aktív témák
-
-
-
Gyuri16
senior tag
válasz
bakaiadam
#206
üzenetére
tehat van egy string:
c:='ablakuveg';
hogy szett tudd szedni charokba (nem WORD, mert az szam) ahhoz szukseg van 8drb charra, vagy pedig egy tombre, tombbel szebben meg lehet csinalni, valhogy igy:
var
c:string;
a:=array [1..10] of char; {itt a 10et atirhatod nagyobbra, ha kell}
i:integer;
begin
c:='ablakuveg';
for i:=1 to length(c) do a:=c;
end.
szoval ennyi -
warezlord
tag
válasz
bakaiadam
#191
üzenetére
hallod te gyerek!
a STRING az egy olyan változó amibe szöveges értékek vannak benne.
pl: hiba=abcdefg;
Ahol a hiba az a string típusú változónak a neve, az abcdefg meg annak a tartalma.
ÉS a word típusú változó meg egész számokat képes tárolni, szal nem hiszem hogy stringből wordbe lehetne ''konvertálni''...
Legfeljebb így lehetséges:
hiba=abcdefg;
hiba[1]=a; ahol a hiba[x] a hiba x értékét adja ki...
hiba[2]=b;
és így tovább...
De ha akarod akkor leírhatom a teljes programot!
Csak mondd meg mihez kell! Mit kell csinálni + mibe kell másolni stb...
PL: hiba,x:string {ezek a változók és típusaik}
hiba:=abcdefg;
hiba[1]{ami egyenlő az a betűvel}:=x;
Akkor x értékbe benne lesz ami a hiba sorozat 1. karakterje, vagyis az x értékben a betű lesz...
De ha akarod akkor részletezhetek...
warezlord -
Gyuri16
senior tag
válasz
bakaiadam
#177
üzenetére
pont az a lenyek, hogy a kepressed csak true vagy false lehet, igy megcsinalod''
if keypressed then valtozo:=readkey
ez azt csinalja, hogy csak akkor csinalja a readkeyt, amikor tenyleg megnyomsz valamit. Probald ki, biztos hogy menni fog. Ha meglesz megnezem a programot
-
Gyuri16
senior tag
válasz
bakaiadam
#170
üzenetére
ezt nem teljesen ertem, szerintem igy a legjobb, a programod nem neztem, de valoszinu meg lehet igy irni, persze ehhez ertenem kellene azt amit mondtal, milyen 2-3 ertek?
vagyis mi a 3 ertek, ugye a keypressed vagy true vagy false, ez utan meg valamibe readkeyozol, es ott mar mindent be tudsz olvasni
[Szerkesztve] -
KovacsUr
addikt
válasz
bakaiadam
#106
üzenetére
Ühüm, megvan. A DOS unit használja a Use32 unitot, és így a Word 32 bites. Vagy tedd be te is a Use32 unitot a uses kifejezésbe, vagy használj LongInt típusú változókat.
Így működni fog:
program jd;
uses Use32, DOS;
var
g,h,b,a: Word;
begin
gettime(g,h,b,a);
end.
Így is:
program jd;
uses DOS;
var
g,h,b,a: LongInt;
begin
gettime(g,h,b,a);
end.
Új hozzászólás Aktív témák
- Milyen autót vegyek?
- Miskolc és környéke adok-veszek-beszélgetek
- Battlefield 6
- Kuponkunyeráló
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
- Formula-1
- ASZTALI GÉP / ALKATRÉSZ beárazás
- Milyen széket vegyek?
- Milyen notebookot vegyek?
- MILC felhasználók szakmai topikja
- További aktív témák...
- Fujifilm 33/1.4 R LM WR
- Crucial P310 1TB M.2 2230 NVME PCI-E 4.0 x4 - Új, bontatlan - 7100-6000 MBs - Eladó!
- Használt NVME M2 SSD-k - 1000 GB tól 2048GB-ig Samsung Hynix Intel Kioxia WD Micron Toshiba
- WD Black SN770M 2TB M.2 2230 NVME PCI-E 4.0 x4 - Új - 5150-4850 MBs - Eladó!
- Gamer PC 2025, Komplett gép, Garanciális alkatrészek, BESZÁMÍTÁS
- Xiaomi 14 512GB, Kártyafüggetlen, 1 Év Garanciával
- Gamer PC-Számítógép! Csere-Beszámítás! I5 14400F / RTX 3060Ti / 32GB DDR5 / 512GB SSD!
- Eladó Samsung A30S zöld 4/64GB / 12 hó jótállás
- Xiaomi 15 256GB, Kártyafüggetlen, 1 Év Garanciával
- GYÖNYÖRŰ iPhone 12 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3281, 100% akkumulátor
Állásajánlatok
Cég: NetGo.hu Kft.
Város: Gödöllő
Cég: Promenade Publishing House Kft.
Város: Budapest





