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

Zivilgebäude 
 Hauptquartier (100) Kosten: 3.983.000 Eisen - 637.280 Titan - 3 Tage 17:14:54 bauen 
 Biozelle (74) Kosten: 1.793.700 Eisen - 398.600 Titan - 22:25:00 bauen 
 Bunker (32) Kosten: 727.500 Eisen - 291.000 Titan - 09:59:24 bauen 
Rohstoffgebäude 
 Farm (60) Kosten: 369.300 Eisen - 0 Titan - 11:34:27 bauen 
 Eisenmine (62) Kosten: 497.625 Eisen - 33.175 Titan - 19:57:32 bauen 
 Titanmine (29) Kosten: 116.000 Eisen - 2.320 Titan - 03:33:07 bauen 
usw, usf....					

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

Type TKonstruktion = record
       Min : integer;
       Max : integer;
       Stufe : integer;
       Art : integer;
       HQ : integer;       
       Fe : int64;
       Ti : int64;
       Zeit : int64;
     end;					

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:

procedure TForm1.BtnAuswertenClick(Sender: TObject);
var
  i,c,x,hq : integer;
  str : string;
  k : TKonstruktion;
begin
  c := MemoI.Lines.Count;
  ClearKIn(k);
  hq := - 1;
  SetLength(Kin,0);
  for i := 1 to c do
    begin
    str := MemoI.Lines[i-1];
    for x := 1 to AnzKonst - 4 do
      if pos(Konststr[x],str) > 0 then //gebäude gefunden
        begin
        K.Art := x;     //gebäude setzen
        K := AnalyzeData(str); //rohstoffe und zeiten auswerten
        if x = 1 then   //hq gefunden
          begin         //hq stufe setzen für folgende auswertungen
          hq := K.Stufe;
          end;
        K.HQ := hq - 1; //hq stufe - 1 für grundwertberechnung
        K := AnalyzeMinMax(K);
        AddKin(K);
        end;
    end;
  UpdateOutGrid;
end;					

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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

function AnalyzeData(str : string): TKonstruktion;
var
  pa,pe,i : integer;
  s,sstr : string;
begin
//konstruktionsstufe auslesen
  pa := pos('(',str);
  pe := pos(')',str);
  if pa > 0 then
    begin
    s := copy(str,pa+1,pe - pa - 1);
    result.Stufe := StrToIntDef(s,-1) + 1;
    end
  else
    begin
    result.Stufe := 1;
    end;
  pa := pos(':',str);
  sstr := copy(str,pa+1,length(str)-3);

//eisen auslesen
  pa := 0;
  pe := pos('Eisen',sstr);
  s := '';
  for i := pa to pe - 1 do
    begin
    if StrToIntDef(sstr[i],-1) > -1 then s := s + sstr[i];
    end;
  result.Fe := StrToInt64(s);

//titan auslesen
  pa := pos('Eisen',sstr);
  pe := pos('Titan',sstr);
  s := '';
  for i := pa + 6 to pe - 1 do
    begin
    if StrToIntDef(sstr[i],-1) > -1 then s := s + sstr[i];
    end;
  result.Ti := StrToInt64(s);

//zeit auslesen
  pa := pos('Titan',sstr);
  pe := pos(':',sstr);
  s := copy(sstr,pa + 8,pe - pa);
  result.Zeit := TimeToSecond(s);
  result.Min := 0;
  result.Max := 0;
end;					

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

type x = record
  a, b, c : Integer;
  x, y : String;
end;

// --
x1, x2 : x;
begin
  x1.a := 5;
  x1.y := "hallo";

  x2.b := 1;
  x2.c := 1;
  x2.x := "blah";

  x1 := x2; // <--					

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:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

type
  TTest = record
    A : integer;
    B : integer;
    C : integer;
    D : integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TestMich(): TTest;
begin
  result.D := result.A * result.B * result.C;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Test : TTest;
begin
  Test.A := StrToInt(Edit1.Text);
  Test.B := StrToInt(Edit2.Text);
  Test.C := StrToInt(Edit3.Text);
  Test := TestMich;
  Edit4.Text := IntToStr(Test.D);
end;

end.					

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

Unit7.pas.46: Test.A := StrToInt(Edit1.Text);

00454C05 8D55EC           lea edx,[ebp-$14]
00454C08 8B8360030000     mov eax,[ebx+$00000360]
00454C0E E8511DFEFF       call TControl.GetText
00454C13 8B45EC           mov eax,[ebp-$14]
00454C16 E85939FBFF       call StrToInt
00454C1B 8945F0           mov [ebp-$10],eax

Unit7.pas.47: Test.B := StrToInt(Edit2.Text);
<snip>
Unit7.pas.48: Test.C := StrToInt(Edit3.Text);
<snip>
Unit7.pas.49: Test := TestMich;

00454C50 8D45F0           lea eax,[ebp-$10]  //Übergibt Test an die function !!!
00454C53 E878FFFFFF       call TestMich

Unit7.pas.50: Edit4.Text := IntToStr(Test.D);
<snip>					

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

Unit7.pas.39: result.D := result.A * result.B * result.C;

00454BD0 8B10             mov edx,[eax]
00454BD2 0FAF5004         imul edx,[eax+$04]
00454BD6 0FAF5008         imul edx,[eax+$08]
00454BDA 89500C           mov [eax+$0c],edx

end;

00454BDD C3               ret