Hirdetés
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- Xiaomi Mi 9 - egy híján
- Papírvékony a jövő a Samsungnál: íme, a Galaxy TriFold!
- Samsung Galaxy Watch8 - Classic - Ultra 2025
- Samsung Galaxy A56 - megbízható középszerűség
- Milyen hagyományos (nem okos-) telefont vegyek?
- Xiaomi 15T - reakció nélkül nincs egyensúly
- Kicsomagoljuk és bemutatjuk a Poco F8 Ultrát
- Huawei P10 - pisztácia nem is volt
- Samsung Galaxy A55 - új év, régi stratégia
Ú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
- Kerékpárosok, bringások ide!
- exHWSW - Értünk mindenhez IS
- Direct One (műholdas és online TV)
- AMD Navi Radeon™ RX 9xxx sorozat
- OLED TV topic
- 5 kilowattos GPU-k előtt nyitná meg az utat az Intel
- 5.1, 7.1 és gamer fejhallgatók
- Milyen házat vegyek?
- Az AMD X870 platform meghódítására tör a Sapphire alaplapos divíziója
- Android felhasználók OFF topikja
- További aktív témák...
- Dell Optiplex 5070 MT, i5-9500, 16GB RAM/256GB SSD, DVD-RW, garancia, számla!
- CASIO Edifice EFK-100D-3A Automata mechanikus
- Thinkpad X13 Gen2i 13.3" FHD+ IPS i5-1145G7 16GB 512GB NVMe gar
- Xiaomi 14T Pro 12/512GB, Megkímélt, Kártyafüggetlen, Töltővel, Dobozzal, 1 Év Garanciával!
- GIGABYTE GeForce RTX 4080 SUPER WINDFORCE V2 16G - Oazis Computer garancia 2027.05.01.
- Újszerű Dell Latitude 7440 -14"FHD+1 IPS - i5-1345U 16GB - 512GB - Win11 - 1 év garancia + Dokkoló +
- Samsung Galaxy S24 Ultra 120 Hz Dynamic AMOLED 2X, beépített S Pen, Galaxy AI 12/256 GB
- ÚJ Xiaomi Mi Robot Vacuum Mop Essential robotporszívó feltörlő 2db 1999 Ft
- HIBÁTLAN iPhone 13 Pro Max 128GB Alphine Green -1 ÉV GARANCIA - Kártyafüggetlen, MS3722, 100% Akksi
- Xiaomi Redmi Note 14 Pro+ 256GB,Újszerű,Dobozával,12 hónap garanciával
Állásajánlatok
Cég: BroadBit Hungary Kft.
Város: Budakeszi
Cég: Laptopműhely Bt.
Város: Budapest




