Hallo
DP!
Ich arbeite ja gerade an einer erweiterbaren Scriptsprache, und implementiere gerade meine Variablenfunktionalität... Da meckert mir der Compiler auf einmal was vor von wegen "Inkompatible Typen". Okay, klingt trivial, aber irgendwie komme ich nicht dahinter:
Delphi-Quellcode:
procedure CREATEVAR(Params:array of Pointer; var Vars, VarNames:array of PString);
var
I:integer;
begin
I:=-1;
repeat
inc(I);
until(VarNames[I]^=string(Params[0]))or(I>High(VarNames));
if(I>High(VarNames))then
begin
SetLength({*}VarNames, Length(VarNames)+1); //{*} = Hier kommt der Fehler
SetLength({*}Vars, Length(Vars)+1); //{*} = Hier auch!
GetMem(VarNames[I], Length(string(Params[0])));
VarNames[I]^:=string(Params[0]);
end;
end;
Wer weiß, was Willi will? (Wollte die Alliteration beibehalten und hab meinen Compiler deshalb mal Willi genannt
)
Grüße,
Euer LDer.