Kezdőoldal » Számítástechnika » Programozás » Mivel lehet helyettesíteni a...

Mivel lehet helyettesíteni a Read parancsot Delphiben, ha nem fájlnál és nem "Console" módban, hanem GUI-ban és szöveges érték tárolására akarom használni?

Figyelt kérdés

Tehát:


read(n,i) pascalos megoldás helyett, Delphiben hogy lehet beolvasómezők nélkül megoldani és helyettesíteni, egyben tárolni adatot ideiglenesen úgy, hogy nem kér be billentyűzetről értéket,csak beolvassa a memóriába és onnét előszedi? Bocsánat,de nem rég tértünk át C-ről, amúgy sem vagyok egy lángész és most ez teljesen megkavart. Az is meglehet hogy fáradt vok.Hilfe és köszi!



2015. szept. 7. 23:14
 1/5 anonim ***** válasza:

Az adott controlban felül kell definiálni a WndProc metódust. Ennek a metódusnak a feladata az, hogy kezelje a Windows által küldött üzeneteket, pl. billentyűleütéseket. Egészen pontosan a WM_KEYDOWN/WM_KEYUP Windows üzeneteket kell figyelned. A wParam tárolja, hogy melyik billentyű lett lenyomva/felengedve, az lParam pedig egy csomó más hasznos információt. A leütött karaktereket eltárolod mondjuk egy tömbben, amiből string-et csinálsz.


[link]


Vagy pedig az OnKeyPressed eseménnyel lehet még szórakozni hasonló módon.

2015. szept. 7. 23:23
Hasznos számodra ez a válasz?
 2/5 anonim ***** válasza:

Olvasható szöveg tárolására a WM_CHAR üzenetet használjuk a TranslateMessage funkcióval párosítva ;)


[link]

2015. szept. 7. 23:46
Hasznos számodra ez a válasz?
 3/5 anonim ***** válasza:

Nem igazán egyértelmű mire gondolsz éppen.Valahová be kell kérni adatot,vagy tárolni kell ideiglenesen, vagy a memcsibe, vagy billentyűzeten,vagy a disken, de valahová be kell töltened, hogy kezelhesd vagy vissza tudjad olvasni onnét?


Próbáld ki ezt..


function read(a:integer;b:integer):integer;

var s:tstringlist;

var v,v1:integer;

var c:integer;

begin


val(s.GetText,v,c);

val(s.GetText,v1,c);

a:=v;

b:=v1;


end;



procedure TForm1.FormCreate(Sender: TObject);

var n,i:integer;

begin

{n:= {Vmi}

{i:= {Vmi2}

panel1.Caption:=inttostr(read(n,i));

end;

end.

2015. szept. 8. 00:02
Hasznos számodra ez a válasz?
 4/5 anonim ***** válasza:
Nem értem az előzményét sem. Egyáltalán karaktert, vagy számértéket akarsz beolvasni, vagy vegyesen és tárolni szeretnéd és azt is honnét, miből, vagy mitől van leszármaztatva?
2015. szept. 8. 00:11
Hasznos számodra ez a válasz?
 5/5 A kérdező kommentje:
DE király vagy!:))Az utolsó példa nagyon megteszi és bevált.Mindenki segítségét köszönöm!
2015. szept. 8. 00:16

Kapcsolódó kérdések:




Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!