- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Google Pixel 10 és 10 Pro összehasonlító gyorsteszt
- Xiaomi 14T Pro - teljes a család?
- iOS alkalmazások
- Google Pixel topik
- iPhone topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- OnePlus 8 Pro - a túlgondolt
- Xiaomi 15 Ultra - kamera, telefon
- Bemutatkozott a Poco X7 és X7 Pro
Ú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
Hirdetés
- A fociról könnyedén, egy baráti társaságban
- Vallás
- Telekom otthoni szolgáltatások (TV, internet, telefon)
- Mibe tegyem a megtakarításaimat?
- Xiaomi 13T és 13T Pro - nincs tétlenkedés
- Motoros topic
- Eszeveszett AI adatközpont bővítés folyik
- One otthoni szolgáltatások (TV, internet, telefon)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Okos konnektor: tényleg spórol az áramon, vagy csak pénzkidobás?
- További aktív témák...
- GARANCIÁLIS BONTATLAN MINDEN MACBOOK AIR M4
- Tyű-ha Lenovo Thinkpad X1 Carbon G8 Profi Érintős Laptop 14" -50% i7-10610U 4Mag 16GB/512GB FHD IPS
- AKCIÓ BONTATLAN GARIS IPHONE 16 PRO ÉS PRO MAX MINDEN SZÍNBEN ÉS TÁRHELLYEL 1 ÉV GARANCIÁVAL
- iPhone 17 Air - összes tárhely és szín bontatlan, viszonteladótól független 1év Apple garanciális
- iPhone 13 128GB midnight-black, független + extra tokok
- HP ZBook Firefly 14 Gen8 I7-1165G7
- AKCIÓ! Apple Macbook Pro 16" 2019 i9 9980HK 64GB DDR4 512GB SSD Radeon Pro 5500M garanciával
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7500F 16/32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- Samsung Galaxy A12 64GB Kártyafüggetlen 1 év Garanciával
- Xiaomi Redmi Note 12 Pro 5G 128GB Kártyafüggetlen 1Év Garanciával
Állásajánlatok
Cég: CAMERA-PRO Hungary Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest