Új hozzászólás Aktív témák
-
b14
senior tag
Hi
Ez a prog ''tikositana'' bar nem nagy cucc de szeretnem meg csinalni.
Mi benne a hiba?
var i:integer;
c:char;
scaption;
begin
for i:=1 to length(form1.Edit1.Text) do
begin
c:=chr(255-(ord(form1.Edit1.text)));
s:=c;
form1.Edit1.Text:=s;
end;
szerkesztett:
Ezt a hibauzenetet adja:
Project Project1.exe raised exception class EAccess Violation with message 'Acess violation at address 0044F14A in module 'Project1.exe'. Write address 00000000'. Process stopped. Use Step or Run to continue.
[Szerkesztve]''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
válasz VladimirR #20 üzenetére
Hi
kosz szepen a megoldast, de sajna hibas ezert nem ''igazi'' megoldas.
Mivel a chr(255-(ord(c))); egy karaktert titkositana nem jo a te chr(255-(ord(t))); megoldasod, mivel az tcaption.
Azaer megi kosz''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
Hi
2 kérdésem lenne
1: delphiben ha kepeket hasznalok azt bele lehet valahogy forditani a kodba?
2: Pocket pc - re lehet valahogy forditani delphi progot?''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
hi
Ha pld a form1-bol az uses sorba felveszem a unit2-t akkor meg tudom hivni az form2-t a form2.show- val. Ez eddig OK. de mar hogy tudnam a masikkal is megcsinalni ezt, mivel ha a unit2- nel is ugyanezt csinalom akkor korkoros unit reference = circular unit reference to 'unit1'.
Bocs mar megolva
[Szerkesztve]''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
Bocs, nem vettem eszre.
Bar nem szeretek foglalkozni irogatassal, de nem is vagyok ugy beemelyulve az egezbe, hogy azt meg tudjam csinálni.
asztem, hogy mar valaki elkeszitette es nekem nem kell vele foglalkozni''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
kerem valaki adjon a vnaéhutos problememra megoldast
''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
hi
tisztelt vénahűtős
Kerlek vedd eszre, hogy egy sorral arrabb raktam a kezem a gepelesnel es az volt a problema a 'venahhutessel'
Egyebkent nem tudok meg ugy programozni delphiben hogy runtime visible legen egy line, mert akkor ki sem irtam volna a problamam ezert kerek segitseget, de a sorcsapos hulyeseg egyaltalan nem erdekel, sosem voltam alkoholista, es remelem nem is leszek, es ha a 'rajzolasrol' van szo akkor mint a problememmal kapcsolatos hozzaszolasomnal se konkretan rajzolasrol volt szo, hanem vektor graphics-rol, a problema meg mindig fenn all szamomra, remelem, hogy segitseg erkezik ra.
Hello, es ha durvan fogalmaztam, sertegetesnek tunne, akkor kerlek ne vegg annak.
Bye.
--
b14
exit''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
HI
amugy nem veszem sertesnek a hozzaszolasod, mert te nem tudsz engem megserteni. -ezt nem ertettem teljesen, de a programot nezve nem is szamit.
Probalkoztam a tobbi forumon ennek keresesevel, de ezzel a tobbiek nme nagyon foglalkoztak (lealabbis en nem talaltam megoldast).
azert segiteni megprobalok, mert a szocsatabol nem lesz amoba -ritka dolog, de ez ertelmes hozzaszolasod volt.
Egyebkent az egeszet megicsinaltam vonalak nelkul, de ugy megis ''szebb'' lenne az egesz. Ha gondolod elkuldom, vagy valami.
Az egesz delphi rendszerhez annyira nem ertek, hogy ebben a temean nem is nagyon tudok ''erofesziteseket'' tenni.
Remelem valaki tud segiteni''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
HI
Csak maert mar regen erdekel: Mite jelent a neved? Vagy semmi jelentese nincs?
Es az alairasodnak van valami ertelme, legalabbis en ugy gondolom.
''ritka dolog, de ez ertelmes hozzaszolasod volt.'
koszonom az ertekelesedet, majd dicsekszek vele tarsasagban.' Ezen nevetni kene?
Egyebkent a te nem tudsz megserteni- bol a nem tudsz volt nekem ertekes.
'Az egesz delphi rendszerhez annyira nem ertek, hogy ebben a temean nem is nagyon tudok ''erofesziteseket'' tenni.'
marpedig azt neked kell megtenni, annal nagyobbat mennel jobban nem ertesz hozza. - THX a batoritast, ha annak kell venni.
'Egyebkent az egeszet megicsinaltam vonalak nelkul'
ha megirtal egy komplett amobaprogramot akkor rendkivul erdekes hogy nem birod begepelni azt a peldat amit irtak neked es ami egy vacak vonalat huz a vacak formra.
Az egeszet nem nagy dolog megcsinalni, csak szeretem latni, hogy mit csinalok''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
válasz #57764352 #111 üzenetére
HIHI
Az osztoit igy lehet meghatarozni egy szamnak (pascal megoldas, c-ben is kuldhetem, ha kell):
{osztoi.pas}
uses crt;
var a, b, szam, r , i, h,g : longint;
aszamai, bszamai: array [1..200] of longint;
begin
writeln('Kerem az ''A'' erteket');
readln(a);
writeln('Kerem a ''B'' erteket');
readln(b);
clrscr;
writeln('A szamai: ');
writeln;
for szam := a downto 1 do
begin
clrscr;
r:=0;
writeln('Most ',szam);
for i:=szam downto 1 do
begin
if szam mod i = 0 then
begin
writeln(szam div i);
inc(r);
aszamai[r]:=szam div i;
end;
end;
writeln;
writeln;
h:=r;
writeln('Ez osszesen ',r,' szam volt');
readkey;
end;
clrscr;
writeln('B szamai: ');
writeln;
for szam := b downto 1 do
begin
clrscr;
r:=0;
writeln('Most ',szam);
for i:=szam downto 1 do
begin
if szam mod i = 0 then
begin
writeln(szam div i);
inc(r);
bszamai[r]:=szam div i;
end;
end;
writeln;
writeln;
g:=r;
writeln('Ez osszesen ',r,' szam volt');
readkey;
writeln('Kozos osztoik: ');
for i:=1 to h do for r:=1 to g do if r = i then writeln(i);
end.
Ez egy eleg hosszu megoldas, igazabol nagyon is rogtonzott, lehet, hogy van benne hiba.
Legnagyobb kozos osztot ugyan ezen az alapon, csak egy kicsit kell rajta szerkeszteni, a relatív prímek csak egy kicsit belenyulni a legnagyobb kozos oszto progi
De juteszembe: if r = 1 then writeln('RELATÍV PRÍMEK!');
Ha kell meg tudom csinalni a tobbit is!
[Szerkesztve]''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
válasz Zsolteeeee #771 üzenetére
Talán létezik vmi rename() eljárás.
''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
válasz Drótszamár #897 üzenetére
A read tudtommal egy karit olvas be bill.-ről, mert filenél azt csinálja.
''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
-
b14
senior tag
Hogyan kérdezhetem le külön változókba a percet, másodpercet, órát delphiben?
Vagy ha a timetostrt használom és :-tal elválasztva kapom meg, akkor hogyan tudom kicserélni a kat _okra?
[Szerkesztve]''...de a konfigjából kiindulva, nem hiszem, hogy 40 éves családos ember lenne...'' -- by Slax
Új hozzászólás Aktív témák
- Vezetékes FEJhallgatók
- Turbo Kid teszt
- Autós topik
- Milyen autót vegyek?
- Sub-ZeRo: Euro Truck Simulator 2 & American Truck Simulator 1 (esetleg 2 majd, ha lesz) :)
- Vallás
- Okos Otthon / Smart Home
- Anime filmek és sorozatok
- Zyxel NAS326
- Samsung Galaxy S23 és S23+ - ami belül van, az számít igazán
- További aktív témák...
- ARCTIC Liquid Freezer 360 II A-RGB rev.3 ( Garancia )
- NAD M25 7Ch Master Series végfok végerősítő
- Sony 55-210mm f/4.5-6.3 OSS (Sony E)
- Eladó több mint 2 év garanciával - LG OLED48C21LA / 4K/UHD/2160P/120Hz/OLED
- Razer Blade 16 2023 (i9 13950HX,RTX 4090 16Gb, 32GB DDR5 5600Mhz, 2x 1TB, 16" Dual UHD+FHD+ MiniLED)