1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:

unit CUFile;

interface

uses
  Classes,SysUtils;
type
  TFile = Class  
  private
    sFilename : String;
    sSize : Int64;
    sPath : String;
    sPathFilename : String;
    sTime : Integer;
    sAttr : Integer;
  Public
    Constructor create();
  Published
    property Filename : String read sFilename write sFilename;
    property Size : Int64 read sSize write sSize;
    property Path : String read sPath write sPath;
    property Time : Integer read sTime write sTime;
    property Attr : Integer read sAttr write sAttr;
    property PathFilename : String read sPathFilename write sPathFilename;
    procedure importFromSearchRec(src:TSearchRec; FilePath:String);
    procedure importFromTFile(src:TFile);
    function formatedTime():String;
  end;


implementation
.....					

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

Var arr:array of Tirgendwas;
    Laenge:integer;
begin
  laenge:=-1;
 
  while irgendetwas do
   begin
     //wenn notwendig, array um z.B. 100 neue Einträge erweitern      
     if laenge>=length(arr) then setlenght(arr,length(arr)+100); 
     inc(laenge);
     //Array-Eintrag füllen
     arr[laenge]:=blablabla;
   end; 
  //und zum schluß auf die richtige Größe setzen
  setlenght(arr,laenge); 
end;					

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

PTrec:^Trec;
Trec = reorcd
 elementA:irgendeeinTyp;
 elementB:irgendeeinTyp;
 elementC:irgendeeinTyp;
 ....
 nextRec:PTrec;
end;					

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

// Schnell aber gross (8 Bytes)
  TTest = class
   B: Byte;
   I: Integer;
  //...
  end;

// Klein aber langsam (5 Bytes)
  TTest = packed class 
   B: Byte;
   I: Integer;
  //...
  end;					

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

type
  // dieser Record ist 4 Bytes groß
  TMyRecord = record
    a: Byte;
    b: Word;
  end;

  // dieser Record ist 3 Bytes groß
  TMyPackedRecord = packed record
    a: Byte;
    b: Word;
  end;					

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

type
  // ungeschickt - 6 Bytes groß
  TMyRecord = record
    a: Byte;
    b: Word;
    c: Byte;
  end;

  // geschickter - nur 4 Bytes groß
  TMyPackedRecord = packed record
    a: Byte;
    c: Byte;
    b: Word;
  end;