INSERT INTO ChannelListings (ChannelNo, ChannelAccountNo, ProductNo, SKU, Price, IsUseCurrentRetailPrice, IsOnSale, IsActive, IsRemove, IsDelete, IsGiftwrapAvailable, IsGiftMessageAvailable, IsUseProductNoAsSKU, CategoryNo)

VALUES (4, 2, '080689000270', LASTAUTOINC('ChannelListings'), 1.6, True, False, True, False, False, False, False, False, 20)

INSERT INTO orders (custno,empno) VALUES (LASTAUTOINC('customer'),200);

var

  frmRobot: TfrmRobot;

  iRTeller, iTeller, iSiklusse : integer;



{ ... }



procedure TfrmRobot.bmbBeginClick(Sender: TObject);

begin



  iSiklusse := sedSiklus.Value;

  tmrRobot.Enabled := True;

  bmbBegin.Enabled := False;

  bmbRetry.Enabled := True;



end; { proc:Begin }



procedure TfrmRobot.tmrRobotTimer(Sender: TObject);

begin



    if iTeller < iSiklusse then

      begin



    Inc(iRTeller, 1);



    if iRTeller = 1 then

      begin

        shpGroen.Visible := True;

        shpOranje.Visible := False;

        shpRed.Visible := False;

      end { if:1 }



     else if iRTeller = 2 then

      begin

        shpGroen.Visible := False;

        shpOranje.Visible := True;

        shpRed.Visible := False;

      end { else if:2 }



     else if iRTeller = 3 then

      begin

        shpGroen.Visible := False;

        shpOranje.Visible := False;

        shpRed.Visible := True;

     end { else if:3 }



     else

      begin

        shpGroen.Visible := False;

        shpOranje.Visible := False;

        shpRed.Visible := False;

        Inc(iTeller, 1);

        iRTeller := 0;

      end; { else }



    end; { if:iSiklus }



end; { proc:Timer }



procedure TfrmRobot.FormActivate(Sender: TObject);

begin



  iRTeller := 0;

  bmbRetry.Enabled := False;



end; { proc:FormAcrivate }



procedure TfrmRobot.bmbRetryClick(Sender: TObject);

begin



  iTeller := 0;

  iRTeller := 0;

  iSiklusse := 0;

  bmbBegin.Enabled := True;



end;



end. { unit }

uses crt;

type

nodePointer = ^node;

        node           = record

        word        : string;

        next        : nodePointer;

        end;

        list = nodePointer;        



var

        wordlist:list;

        words        :nodePointer;

        newword :nodePointer;

        input        : string;

        i        : integer;

        position:integer;

        cut        :string;



begin

        clrscr;

        new(wordlist);

        wordlist:=nil;        

        write('Enter a sentence:');

        readln(input);

        input:=input+' ';

        

                for i:=1 to length(input) do

                begin

                        if input[i]=' ' then  

                begin                                         

                        position:=pos(input[i],input);

                        cut:=copy(input,1,position-1);

                        delete(input,1,position);

                        new(newword);

                        newword^.word := cut;

                        newword^.next := wordlist;

                        wordlist := newword;

                end;                                

        end;

        words:=wordlist;

                while words <> nil do

                        begin

                        write(words^.word);

                        words := words^.next;

                end;                                 

end.

[Error] gradering.pas(49): Ordinal type required

[Error] gradering.pas(63): '.' expected but ';' found

[Fatal Error] gradering_p.dpr(5): Could not compile used unit 'gradering.pas'

unit gradering;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, Buttons, ExtCtrls;



type

  TfrmGradering = class(TForm)

    pnlAgtergrond: TPanel;

    lblPunt: TLabel;

    lblAf_punt: TLabel;

    lblPunt2: TLabel;

    edtPunt: TEdit;

    lblAfvoer: TLabel;

    bmbRetry: TBitBtn;

    bmbClose: TBitBtn;

    btnTel: TButton;

    procedure btnTelClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  frmGradering: TfrmGradering;

  iTeller : integer;

  rTotaal, rGemiddeld : real;

  sSimbool, sAfvoer : string;



implementation



{$R *.dfm}



procedure TfrmGradering.btnTelClick(Sender: TObject);

begin



  if iTeller < 6 then

    begin

      Inc(iTeller, 1);

      rTotaal := rTotaal + StrToInt(edtPunt.Text);

      lblAf_punt.Caption := IntToStr(iTeller);

    end

  else if iTeller = 6 then

    begin

      rGemiddeld := ((rTotaal / 6) * 100);

      case rGemiddeld of

         80..100 : sSimbool := 'A';

         70..79  : sSimbool := 'B';

         60..69  : sSimbool := 'C';

         50..59  : sSimbool := 'D';

         40..49  : sSimbool := 'E';

         30..39  : sSimbool := 'F';

         20..29  : sSimbool := 'G';

         else sSimbool := 'H';

      end

  end



end;



end;



end.

Program yeungkt2;

{$APPTYPE CONSOLE}

{

    IT113 Assignment - Who wants to be a student millionaire.

    Author:  Tony Yeung

    Date: 16 October 2009

    Version 2.03

}

uses

  SysUtils,OurCrt;

Type

   hotSeat_record=record

   lastname  :string[12];

   firstname :string[12];

   address   :string[25];

End;



//*****************  USED VARIABLES   ******************************************

Var User_Choice    :Integer;  //global variable

    hotSeat_file  :file of hotSeat_record;

    hotSeat       :array[1..100]of hotSeat_record;

    numberRecords  :integer;

    numbers        :array[1..6] of integer;

    generate       :boolean;

    ONE            :hotSeat_record;

//********************  PROCEDURE LOAD  ****************************************

Procedure load;

Var

   count:integer;

begin

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln('                  PLEASE RUN THIS PROGRAM IN A MAXIMIZED WINDOW');

  writeln;

  writeln('                            PRESS <ENTER> TO CONTINUE');

  readln;

  clrscr;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln;

  writeln('                  T');

  sleep(200);

  clrscr;

  writeln('                  TO');

  sleep(200);

  clrscr;

  writeln('                  TON');

  sleep(200);

  clrscr;

  writeln('                  TONY');

  sleep(200);

  clrscr;

  writeln('                  TONY ');

  sleep(200);

  clrscr;

  writeln('                  TONY Y');

  sleep(200);

  clrscr;

  writeln('                  TONY YE');

  sleep(200);

  clrscr;

  writeln('                  TONY YEU');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUN');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG ');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG P');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG PR');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG PRE');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG PRES');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG PRESE');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG PRESEN');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG PRESENT');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG PRESENT .');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG PRESENT ..');

  sleep(200);

  clrscr;

  writeln('                  TONY YEUNG PRESENT ...');

  sleep(200);

  clrscr;





    assign(hotSeat_file,'hotSeat.dat');

    reset(hotSeat_file);

    numberRecords:= filesize(hotSeat_file);

  for count:=  1 to numberRecords do

  Begin

    read(hotSeat_file,hotSeat[count]);

  end;

end;

//*********************  PROCEDURE CONTESTANTSLIST  ****************************

Procedure ContestantsList;

Var

   count:integer;

Begin

  numberRecords:= filesize(hotSeat_file);

  WriteLn('...LAST NAME..FIRST NAME..................ADDRESS......');

  WriteLn;

  for count:=  1 to (filesize(hotSeat_file)) do

  Begin

  WriteLn(hotSeat[count].firstname:12,hotSeat[count].lastname:12,hotSeat[count].address:25);

  sleep(100);

  End;

  readln;

end;

//*************************  PROCEDURE GENERATE10FINALISTS  ********************

Procedure Generate6finalists;

var

  count,temp:integer;

begin

  writeln('Here are the 6 finalist''s numbers');

  randomize;

  for count:= 1 to 6 do

  begin

    temp:=random(numberRecords)+1;

    while(temp=numbers[1])

       or (temp=numbers[2])

         or (temp=numbers[3])

           or (temp=numbers[4])

             or (temp=numbers[5])

               or (temp=numbers[6]) do



    begin

      temp:=random(numberRecords)+1;

    end;

    numbers[count]:=temp;

    generate := true;

  end;

  for count := 1 to 6 do

    begin

      writeln;

      writeln('     ***<$$$$$>****  ' ,(numbers[count]), '  ****<$$$$>****');

      writeln;

      sleep(100);

    end;

    writeln('              GOOD LUCK !!!!!!!');

    readln;

    //clrscr;

end;

//************************  PROCEDURE SHOWFINALISTS  ***************************

Procedure ShowFinalists;

  var

  count: integer;

  Begin

  if (generate = true)  then

  begin

    WriteLn('3 pressed,finding and listing the finalists...');

    WriteLn('...LAST NAME..FIRST NAME..................ADDRESS......');

    for count:=1 to 6 do

    begin

      writeln(hotSeat[numbers[count]].firstname:12, hotSeat[numbers[count]].lastname:12, hotSeat[numbers[count]].address:20);

      writeln;

      sleep(200);

    end

  end

  else

      writeln('Please generate finalist number first!');

    readln;

  End;

//***************************  PROCEDURE SAVE  *********************************

Procedure save;

  var

  count: integer;

  Begin

    reset(hotSeat_file);

    for count:=1 to filesize(hotSeat_file) do

      begin

       write(hotSeat_file,hotSeat[count]);

      end;

  end;

//************************  PROCEDURE CHANGEDETAILS  ***************************

Procedure ChangeDetails;

  var

  count: integer;

  first,last,address: string;

  name: boolean;



  Begin

    name:=false;

        WriteLn('4 pressed,changing the address a friend details...');



        WriteLn('Please enter your first name.');

        readln(first);

        WriteLn('Please enter your last name.');

        readln(last);

        for count:=1 to filesize(hotSeat_file) do

        begin

         if (hotSeat[count].firstname=first) and(hotSeat[count].lastname=last) then

        begin

        writeln('Well. We''ve found your records.');

        writeln('Please enter your new address');

        readln(address);

        hotSeat[count].address:=address;

        name:=true

        end;

        end;

        if name=false then

        begin

        writeln('Sorry!  We do not have your records from your database.');

        end;

        writeln;

        write('Press <ENTER> to save changes and return to the main menu.');

        save;

        readln;

        end;

//***********************  PROCEDURE ENROLCONTESTANTS  *************************

Procedure EnrolContestant;

  var

        INDEX_:INTEGER;

        count :integer;

        name  :boolean;

  Begin

    name:=false;

    write('Please enter your first name - if you''re new: ');

    readln(ONE.FIRSTNAME);

    write('Please enter your last name: ');

    readln(ONE.LASTNAME);

    write('Lastly, please enter your address: ');

    readln(ONE.ADDRESS);

    write('Please press <ENTER> for checking these data..');

    READLN;//*

    for count:=1 to filesize(hotSeat_file) do

    begin

    if (hotSeat[count].lastname=ONE.FIRSTNAME) and (hotSeat[count].firstname=ONE.LASTNAME) then

    begin

        name:=true;

        writeln('You''re a contestant already.');

    end;

    end;

    if (name = false) then

    begin

        CLOSE(HOTSEAT_FILE);

        WRITELN('Checking is over,everything went fine.');

        writeln('Please press <ENTER> again to save your details and return to main menu.');

        readln;

        INDEX_:=0;

        RESET(HOTSEAT_FILE);

        WHILE (EOF(HOTSEAT_FILE)=FALSE)DO BEGIN

           READ(HOTSEAT_FILE,HOTSEAT[INDEX_]);

           INC(INDEX_,1);

           IF (EOF(HOTSEAT_FILE)=TRUE) THEN BEGIN

              FILEMODE:=2;

              SEEK(HOTSEAT_FILE,FILESIZE(HOTSEAT_FILE));//JUMP THE END OF THE FILE

              WRITE(HOTSEAT_FILE,ONE); //AND WRITE THE ENROLED GUY

           END;

        END;

    end;

  end;

//*****************************  PROCEDURE GETOUTOFHERE  ***********************

Procedure GetOutOfHere;

  Begin

    WriteLn('0 pressed,exiting...');

    Sleep(1000);

    //clrscr;

  End;

//*******************************  PROCEDURE MENU  *****************************

 Procedure Menu;

Begin

      LOAD;

      Writeln('               M E N U');

      WriteLn('Please enter an integer in the range 1...5');

      WriteLn;

      WriteLn('  1 List all the contestants');

      WriteLn('  2 Generate the 6 finalist''s numbers');

      WriteLn('  3 Find and list the finalists');

      WriteLn('  4 Change the address a friend details');

      WriteLn('  5 Enrol a new contestant');

      WriteLn('  0 Exit');



      Readln(User_Choice);

      Case (User_Choice) of

         1:ContestantsList;

         2:Generate6finalists;

         3:ShowFinalists;

         4:ChangeDetails;

         5:EnrolContestant;

         0:GetOutOfHere;

        end;

end;

//***************************  THE MAIN PROGRAM  *******************************

begin //main body

//Load;

repeat

menu;              {Shows the Menu on the screen}

until User_Choice = 0;  {Allows program user to Exit program}

CLOSE(HOTSEAT_FILE);//*

end.

Attached Files

hotSeat.zip (571 Bytes)

hire is (normal tcp server)

var

MyHostName : AnsiString;

begin

WSocket_gethostname(MyHostName);

Display(' I am "' + String(MyHostName) + '"');

Display(' IP: ' + LocalIPList.Text);

WSocketServer1.SocksUsercode := 'user';

WSocketServer1.SocksPassword := 'pass';

WSocketServer1.Proto := 'tcp'; { Use TCP protocol }

WSocketServer1.Port := '400'; { Use telnet port }

WSocketServer1.Addr := '0.0.0.0'; { Use any interface }

WSocketServer1.ClientClass := TTcpSrvClient; { Use our component }

WSocketServer1.Listen; { Start litening }

Display('Waiting for clients...');



hire is string 3des crypt

procedure TForm1.Button1Click(Sender: TObject);

var

i: integer;

Cipher: TDCP_3des;

KeyStr: string;

begin

KeyStr:= '';

if InputQuery('Passphrase','Enter passphrase',KeyStr) then // get the passphrase

begin

Cipher:= TDCP_3des.Create(Self);

Cipher.InitStr(KeyStr,TDCP_sha1); // initialize the cipher with a hash of the passphrase

for i:= 0 to Memo1.Lines.Count-1 do // encrypt the contents of the memo

Memo1.Lines[i]:= Cipher.EncryptString(Memo1.Lines[i]);

Cipher.Burn;

Cipher.Free;

end;



Decrypt

procedure TForm1.Button2Click(Sender: TObject);

var

i: integer;

Cipher: TDCP_3des;

KeyStr: string;

begin

KeyStr:= '';

if InputQuery('Passphrase','Enter passphrase',KeyStr) then // get the passphrase

begin

Cipher:= TDCP_3des.Create(Self);

Cipher.InitStr(KeyStr,TDCP_sha1); // initialize the cipher with a hash of the passphrase

for i:= 0 to Memo1.Lines.Count-1 do // decrypt the contents of the memo

Memo1.Lines[i]:= Cipher.DecryptString(Memo1.Lines[i]);

Cipher.Burn;

Cipher.Free;

end;

 advstringgrid1.Cells[9, 0] := 'some word ';

 CheckBox1Click(Sender);



I need ,, ('some word';)" to be autocange replace with rules baset on click in combobox



haw to Assign stringlist from combobox and send like advstringgrid1.Cells[9, 0] :=  ('hire select  string from combobox ';)

CheckBox1Click(Sender);