Readkey (help ) – Pascal – Fórum – Programujte.com

ahoj, chtěl bych se zeptat jestli je možné pomocí funkce readkey načítat dvě klavesi postupně tj. nacte prvni, nejakej čas čeká a pokud vtento čas se stiskne druha klavesa tak províst operaci pro obě zmáčknutí pokud během času se druha klavesa nezmackne provist operaci pouze pro prvni zmacknuti.

z:=readkey;

IF z='a' then 

 begin

 z:=readkey;

 delay(200);

 IF z='b' then provist akci;

 end;

Předpokládám, že myslíš něco takovéhohle:

klavesa1:=readkey;

klavesa2:=#0; {neco, co neni na klavesnici}

for i:=1 to 50 do

 begin

 delay(10);

 if keypressed then begin

                    klavesa2:=readkey;

                    break;

                    end;

 end;

if klavesa2<>#0 then {v tom casovem intervalu bylo neco zmacknuto, zpracuj obe klavesy}

                else {nic zmacknuto nebylo, zpracuj jenom tu prvni};

klavesa1:=readkey;

klavesa2:=#0;

StartCekani;

 repeat

 if keypressed then begin

                   klavesa2:=readkey;

                   break;

                   end;

 until DosazenCas(500);

StopCekani;

if klavesa2<>#0 then {neco bylo zmacknuto, zpracuj obe klavesy}

                else {nic zmacknuto nebylo, zpracuj jenom tu prvni};

To Mircosoft : Díky tohle jsem přesně potřeboval :smile2: