hala dizi hakkında

[true_false]

merhabalar
daha öncede sizlere dizi hakkında birşeyler gevelemiştim sorunumu az çok çözdüm ama tam çözmüş değilim sorunum program yumurtası yani klavyeden tuşlara basılacak daha sonra bu tuşlar diziye dizidende bizim tanımladığımız const ile karşılaştırılacak
tutarsa showmessage yada herhangi bir avi uygulaması başlatılacak.....

Kod: Tümünü seç

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  const Digits: array[0..1] of Char = 'so';
  var
  b,dizim:array of string;

  begin

   SetLength(dizim,2);
 if  shift =[ssalt]then begin

if (shift=[ssalt])and (key=(13) )then
    dizim[0] := 's';

if (shift=[ssalt])and (key=(10) )then
    dizim[1] := '0';
    if dizim=digits then showmessage('merhaba') else

     // burda dizi sıfırlanacak başa dönecek ve bizede gizli harfleri tekrar
     // girmek kalacak

gibilerinden bir şey zırvaladım ama olmadı
hatamı bulup bana söylerseniz sevinirim
not: sadece uğraş içindir herhangi bir acelesi yoktur şimdiden yüksek ilgi ve alakanıza teşekkür ederim

[sadettinpolat]

Unit1.pas

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

  const
  strEggCaprion         ='"IT REALLY WHIPS THE LLAMA''S ASS!" ;)     ';
  PrgAdi                    ='deneme';


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public


    { Public declarations }
  end;

var
  Form1: TForm1;
  Egg : Array Of Char;
  Tus : String;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
VAR
i:Byte;
begin
SetLength(Egg,Length(PrgAdi)+1);

For i:=0 to high(Egg) Do
        Egg[i] := PrgAdi[i];

Tus := '';
KeyPreview := True;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

if shift = [ssAlt] Then
Begin

  Tus := Tus + Chr(Key);
  Tus := LowerCase(Tus);

  If Tus = prgAdi Then
  Begin
            Beep;
            Tus := '';
            ShowMessage(strEggCaprion);
  end
  Else
  Begin
          If Not (Tus[Length(Tus)] = Egg[Length(Tus)]) Then
                  Tus := '';
  end;
end
else
  Tus :='';

end;

end.

File --> New --> Application

bu kodu olduğu gibi unit1.pasın içine yapıştır ve çoştur.
daha sonra alt tuşuna basılı tutarken deneme yaz showmessage karşına gelecektir.

[husonet]

Kod: Tümünü seç

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  const
  Digits: array[0..1] of Char = 'so';
  var
  b,dizim:array[0..1] of string;
begin

 if (shift=[ssalt])and (key=(VK_RETURN) )then
 Begin
    dizim[0] := 's';
    if dizim[0]=digits[0] then showmessage('merhaba')
 End
 eLSE
    dizim[0] := '';
 if (shift=[ssalt])and (key=(VK_BACK) )then
 Begin
    dizim[1] := 'o';
    if dizim[1]=digits[1] then showmessage('merhaba')
 End
 Else
     dizim[1] := '';
end;

Kolay Gelsin...