交友：if

Question

warning:type missed 'myoicq';
warning:type missed 'myoicq';
warning:uncompatible type 'myoicq' '5546662'
warning:uncompatible type 'mymail' '[email protected]'
error:undeclared 'you';
error:undeclared 'oicq';
error:undeclared 'mail';
error:can't complied project 'if';
error:access denied.
delphi 7.0 

Answer 1

var
MYoicq:string;
MYMail:string;begin
  try
    MYOicq:=Nil;
    MYMail:[email protected]
    if not ([email protected]) then begin
    MYMail:[email protected]
    end; 
  except
  mymail:[email protected]
  end;
end;

Answer 2

Myoicq:=27504019;
MyEmail:[email protected];

Answer 3

procedure iseeyou;
  begin
    if you want to make friends with me 
    then email me:
   [email protected]
  end;

Answer 4

pascal 写起伪代码来就是不错！

Answer 5

function showmessage;
begin
if (wang to make friend  with me)=true then
showmessage('email:[email protected]');
else exit;
end;