Delphi-Quellcode:
var
MTL: array of record //only editable values :)
Name: String;
MatClass: array[0..3] of word;
Diffuse, Ambient, Specular, Reflect2: TColor;
XDiffuse, XSpecular, Specular2: TColor;
TexName:String;
Transparency:Byte;
SpecProbs, Fresnel: array[0..2] of word;
FallOff: array[0..1] of word; end;
procedure LoadMTL(a:String);
var f:Textfile;
s:String;
i:Integer;
begin
SetLength(MTL, TRXHead.Materials); {Fehler beim zweiten Laden}
AssignFile(f,a);
...
end;
Das sollte eigentlich überhaupt nicht compilieren.
1)...... (das vergessen wir da die Formatierung mich irregeleitet hat)
2) was ist TRXHead.Materials ??
Gruß
K-H