Variant Compilier Bug ?

[paradox]

Hallo,

ich nutze unter Windows "Free Pascal Compiler version 2.0.4 [2006/08/21]"
und unter Linux "Free Pascal Compiler version 2.0.4 [2006/08/20]"

Code: Alles auswählen

program project1;
{$H+}
uses variants;
 
function MyFunc(aVar : Variant) : Boolean;
begin
  WriteLn(VarToStr(aVar[0]));
  Result := False;
end;
 
var
  aVar : Variant;
  I : Integer;
begin
  for I := 0 to 10 do
  begin
    aVar := VarArrayOf(['Test', 0]);
    MyFunc(aVar);
  end;
end.

unter windows ist der ouput:
Test
An unhandled exception occurred at $0041723D :
EVariantError : Invalid variant type cast
$0041723D
$00416CB2
$00409C25
$004178CE
$00408745
$004083FE
$004010D1 MYFUNC, line 7 of project1.lpr
$0040124B main, line 18 of project1.lpr

unter linux wird einmal Test ausgegeben und danach haengt die Anwendung.

kann mir einer weiter helfen ?

[theo]

kann mir einer weiter helfen ?

Kann ich bestätigen. Unter Kylix läuft der Code einwandfrei.
Bin zwar kein Variant Experte aber das sieht nach Bug aus. -> Freepascal Bugtracker

[paradox]

Thx @ Theo
unter Delphi 7 wird es auch richtig ausgefuehrt.

wie kann ich beim BugTracker was hinzufuegen ? *rot werd*

[theo]

Weiss ich auch nicht mehr genau.
Ich glaube du musst zuerst einen Account basteln:
http://community.freepascal.org:10000/r ... %5furl=%2f" onclick="window.open(this.href);return false;

und wenn du dann eingelogt bist, gibt's hier mehr Optionen:
http://www.freepascal.org/mantis/set_pr ... oject_id=6" onclick="window.open(this.href);return false;

[Christian]

Ich kann das auch für fpc 2.1.1 Rev 5180 bestätigen.

[knight]

Was wären wir ohne Wiki: http://wiki.lazarus.freepascal.org/How_ ... _report/de" onclick="window.open(this.href);return false;

knight

[paradox]

Lang lebe wiki