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?
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!
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.
Vagy pedig az OnKeyPressed eseménnyel lehet még szórakozni hasonló módon.
Olvasható szöveg tárolására a WM_CHAR üzenetet használjuk a TranslateMessage funkcióval párosítva ;)
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.
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
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!