1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

function DeleteFile2(FileName: String): Boolean;
begin
  if not FileExists(FileName) then Exit;

  Result := DeleteFile(FileName);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if DeleteFile2('c:\test.txt') then ShowMessage( 'Gelöscht' );
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

function DeleteFile2(FileName: String): Boolean; 
begin 
  DeleteFile2 := DeleteFile(FileName); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if DeleteFile2('c:\test.txt') then 
    ShowMessage( 'Gelöscht' ); 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

const
  Version: 'DEMO';

[...]

procedure CheckVersion;
var
  x: Integer;
begin
  if Version='DEMO' then
    x:=1
  else if Version='FULL' then
    x:=2
  [...]
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

const 
  Version: 'DEMOO';  // <--------- z.B. Tastatur prellt, Tippfehler usw.

procedure CheckVersion; 
var 
  x: Integer; 
begin 
  if Version='DEMO' then begin
    x:=1;
    EXIT;
  END;
  else if Version='FULL' then begin
    x:=2 
    EXIT;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure CheckVersion; 
var 
  x: Integer; 
begin 
  x := 0;
  if Version='DEMO' then 
    x:=1
  else if Version='FULL' then 
    x:=2 
  end;
end;                    

1:
2:
3:

{$WARNING OFF}
uses Windows, Messages, ..., ShellCtrls
{$WARNING ON}                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function SucheObjekt(GesuchterName:String):TObjekt;
var i,j:integer;
begin
  Result:=NIL;
  for i:=0 to Objekte.Count-1 do
    for j:=0 to j do Objekte[i].UnterObjekte.Count-1 do
      if Objekte[i].UnterObjekte[j].Name=Gesucht then
      begin
        Result:=Objekte[i];
        exit;
      end;
end;                    

1:
2:
3:
4:
5:
6:
7:

function TForm1.Test: Integer;
begin
  Result:=3;
  Unit1.Result:=4;
  ShowMessage(IntToStr(Result));
  ShowMessage(IntToStr(Unit1.Result));
end;                    

1:
2:

uses
  SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms,  QDialogs, QStdCtrls, QComCtrls, QFileCtrls {$IFDEF Win32}, ShellCtrls{$ENDIF}  {$IFDEF LINUX}, CLIB{$ENDIF};                    

1:
2:
3:
4:
5:
6:
7:
8:

function TForm1.Test: Integer; 
begin 
  Test := 3; 

  Unit1.Result:=4; 
  ShowMessage(IntToStr(Result)); 
  ShowMessage(IntToStr(Unit1.Result)); 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function TForm1.Test: Integer;
begin
  Test:=3;
  Unit1.UnitTest:=4;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IF Test = 0 THEN;
  ShowMessage('TEST '+IntToStr(Test));
  ShowMessage('UNIT '+IntToStr(Unit1.UnitTest));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

function TForm1.Test: Integer;
var t : integer;
begin
  t := 3;
  Test:=t;
  Unit1.UnitTest:=4;
  ShowMessage (IntToStr (t));
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

var ende,
      gefunden : boolean;
      i,
      j : integer;
      T : Tobjekt;
  
begin 
   i := 0;
   T := NIL;
   ende := false;
   gefunden := false;
   while not ende and (i < objekte.count) do  begin
       i := i + 1;
       j := 0;
       while not ende and (j < objekte.unterobjekte.count[j]) do  begin
           j := j + 1;
          gefunden := objekte[i].unterobjekte [j].name := gesucht;
          ende := gefunden;
       end;
       if gefunden then 
         SucheObjekt := objekte[i].unterobjekte [j].name;
   end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function SucheObjekt(GesuchterName:String):TObjekt; 
var i,j:integer;
begin 
  Result:=NIL; 
  for i:=0 to Objekte.Count-1 do 
    for j:=0 to j do Objekte[i].UnterObjekte.Count-1 do 
      if Objekte[i].UnterObjekte[j].Name=Gesucht then 
      begin 
        Result:=Objekte[i]; 
        exit; 
      end; 
end;