1:
2:
3:
4:

  Sarry=^TSarry;
  TSarry=record
    Cells: array [0..6,0..60] of pchar;
    end;					

1:

PChar(inttostr(Laufvariable))					

1:
2:
3:
4:

CreateSarry: PSarry; stdcall;
DestroySarry (Sarry: PSarry); stdcall;

CalcSarry (Sarry: PSarry); stdcall;  // Oder so was					

1:

FreeMem(SarryVariable)					

1:
2:

for x:=0 to 6 do
  for y:=0 to 60 do FreeMem(SarryVariable.Cells[x,y]);					

1:

SarryVariable.Cells[x,y]:=StrNew(PChar(inttostr(IntegerVariable)));					

1:

SarryVariable.Cells[x,y] := StrNew(PChar(inttostr(IntegerVariable)));					

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

CreateSarry: PSarry;
begin
  New(Result); // Speicher reservieren und Pointer in Result speichern
  FillChar(Result^, SizeOf(TSarry), 0);  // Speicher löschen
end

DestroySarry(Sarry: PSarry);
begin
  for Y := 0 to max do
    for X := 0 to max do
      if Sarry^.Cell[Y, X] <> nil then
        StrDispose(Sarry^.Cell[Y, X]);  // Strings löschen

  Dispose(Sarry);  // Hauptstruktur löschen.
end

CalcSarry(Sarry: PSarry);
var
  TempStr: String;
begin
  TempStr := IntToStr(...);
  Sarry^.Cell[Y, X] := StrNew(pChar(TempStr));
end					

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

procedure DestroySarry(Sarry: PSarry);
var x,y:Integer;
begin
  for Y := 0 to 6 do
    for X := 0 to 60 do
      if Sarry^.Cells[Y, X] <> nil then
        StrDispose(Sarry^.Cells[Y, X]);  // Hier der Fehler
  Dispose(Sarry);  // Hauptstruktur löschen.
end;					

1:
2:
3:
4:
5:

function CreateSarry: PSarry;
begin
  new(result);  // Speicher reservieren und Pointer in Result speichern
  FillChar(Result^, SizeOf(TSarry), 0);  // Speicher löschen
end;					

1:
2:
3:
4:
5:

procedure CreateSarry(Sarry: PSarry);
begin
  new(Sarry);
  FillChar(Sarry^, SizeOf(TSarry), 0);
end;					

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

function HeadLine:PSarry;
begin
        ClearSG;
        SG.Cells[1,0]:=StrNew(' > 50');
        SG.Cells[2,0]:=StrNew(' 50-41');
        SG.Cells[3,0]:=StrNew(' 40-31');
        SG.Cells[4,0]:=StrNew(' 30-21');
        SG.Cells[5,0]:=StrNew(' 20-16');
        SG.Cells[6,0]:=StrNew(' < 15');
        result:=SG;
end;					

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

procedure ClearSG;// steht in der DLL drin
var     x,y:Integer;
begin
        for x:=0 to 6 do
                for y:=0 to 60 do SG.Cells[x,y]:=StrNew('');  //auch hier gilt: StrNew zeigt keinen Effekt
end;					

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

function Heizkost:PSarry;// steht in der DLL drin
var     x,y:integer;
begin
        ClearSG;  //Das mach ich konsequent immer, weil die Variable SG in der DLL global verwendet wird und sonst noch doofe Werte drinstehen, die stören könnten
        SG.Cells[0,0]:='Monatsrate pro Jahr';
        for y:=1 to 60 do SG.Cells[0,y]:=StrNew(PChar(inttostr(y)));
        SG.Cells[1,1]:=StrNew(PChar(floattostr(oroundto(btve*bgf*enp/1200,-2))));
        SG.Cells[2,1]:=StrNew(PChar(floattostr(oroundto(50*bgf*enp/1200,-2))));
        SG.Cells[3,1]:=StrNew(PChar(floattostr(oroundto(40*bgf*enp/1200,-2))));
        SG.Cells[4,1]:=StrNew(PChar(floattostr(oroundto(30*bgf*enp/1200,-2))));
        SG.Cells[5,1]:=StrNew(PChar(fp/1200,-2))));
        SG.Cells[6,1]:=StrNew(PChar(floattostr(oroundto(15*bgf*enp/1200,-2))));
        for x:=1 to 6 do
                for y:=2 to 60 do SG.Cells[x,y]:=StrNew(PChar(floattostr(oroundto(strtofloat(SG.Cells[x,y-1])*(1+jhks/100),-2))));
//        result:=CreateSarry;  //Hier ist es ihm wurscht, ob das dabei ist, oder nicht.
        result:=SG;
end;					

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

procedure tachange;// steht im Programm drin
begin
  //Hier schicke ich die Variablen in die DLL rüber:
        MainFunctions.SetAllVars(strtofloat(edbgf.Text),  // hat den Wert 135
                                 strtofloat(edep.Text),    // Wert 7
                                 strtofloat(edbtv.Text),  // Wert 80
                                 strtofloat(edjhks.Text),  // Wert 7
                                 cbland.ItemIndex);    // Wert ist 3 aber in meiner gekürzten Version hier irrelevant
  //hier hol ich mir die Überschrift (funzt nicht)
        SG:=MainFunctions.HeadLine;
        for x:=1 to 6 do sgTable.Cells[x,0]:=SG.Cells[x,0];
  //hier hol ich mir die Wertetabelle (funzt nur verdreht/verfälscht)
        SG:=MainFunctions.Heizkost;
        sgTable.RowCount:=61;
        sgTable.Cells[0,0]:=SG.Cells[0,0];
  //um die Überschrift nicht zu zerstören (ist zur Zeit eigentlich auch irrelevant) lass ich die erste Zeile in der for-Schleife weg
        for x:=0 to 6 do
                for y:=1 to 60 do sgTable.Cells[x,y]:=SG.Cells[x,y];
end;					

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

procedure SetAllVars(abgf,aenp, abtve, ajhks: real; aland: integer);// steht auch in der DLL drin
begin
        BGF:=abgf;
        ENP:=aenp;
        BTVE:=abtve;
        JHKS:=ajhks;
        Land:=aland;
end;					

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

procedure ClearSG(Sarry: pSarry); stdcall;
var     x,y:Integer;
begin
        for x:=0 to 6 do
          for y:=0 to 60 do
            if Sarry^.Cells[x,y]<>nil then Sarry^.Cells[x,y]:=StrNew('')
              else Sarry^.Cells[x,y]:='';
end;					

1:
2:

  if Sarry^.Cells[x,y]<>nil then Sarry^.Cells[x,y]:=StrNew('')
    else Sarry^.Cells[x,y]:='';