مبتدئ في الدلفي

السلام عليكم

يمكنك اخي الاطلاع على delphi help

ستجد شيئا كهذا

If statements
(1) if expression then statement
 For example
if J <> 0 then Result := I/J;
(2)if expression then statement1 else statement2
For example,
if J = 0 then
  Exit
else
  Result := I/J;
*******
if J <> 0 then
begin
  Result := I/J;
  Count := Count + 1;
end
else if Count = Last then
  Done := True
else
  Exit;
-----------------------------------------------
While statements
while expression do statement
while Data <> X do I := I + 1;
while I > 0 do

begin
  if Odd(I) then Z := Z * X;
  I := I div 2;
  X := Sqr(X);
end;

while not Eof(InputFile) do

begin
  Readln(InputFile, Line);
  Process(Line);
end;
-----------------------------------
Repeat statements
repeat statement1; ...; statementn; until expression
******
repeat

  K := I mod J;
  I := J;
  J := K;
until J = 0;

repeat

  Write('Enter a value (0..9): ');
  Readln(I);
until (I >= 0) and (I <= 9);
------------------------------------------
MessageBox
(1)Application.messagebox
function MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer;
Application.MessageBox('I like delphi', 'Hello', MB_OK);
(1)Api : messagebox
int MessageBox(

    HWND hWnd,	// handle of owner window
    LPCTSTR lpText,	// address of text in message box
    LPCTSTR lpCaption,	// address of title of message box  
    UINT uType 	// style of message box
   );
**
MessageBox('I like delphi', 'Hello', MB_OK);
//------------------------------------
To copy file
http://www.swissdelphicenter.ch/en/showcode.php?id=101
*****
var 
  fileSource, fileDest: string; 
begin 
 fileSource:= 'C:SourceFile.txt'; 
 fileDest:= 'G:DestFile.txt'; 
 CopyFile(PChar(fileSource), PChar(fileDest), false); 
end; 
*****
http://www.swissdelphicenter.ch/en/showcode.php?id=28
http://www.swissdelphicenter.ch/en/showcode.php?id=330
Directory
http://www.swissdelphicenter.ch/en/showcode.php?id=152

اشكرك :)

لا شكر على واجب . كلنا اخوان ;)

وربنا ما يجيب زعل