Code: Alles auswählen
program Project1;
{$mode objfpc}{$H+}
uses
Classes;
var
sl : TStringList;
i : integer;
begin
sl := TStringList.create;
with sl do
begin
Clear;
AddObject('hello', TObject(1));
AddObject('in', TObject(2));
AddObject('there', TObject(3));
end;
for i := 0 to sl.Count - 1 do
begin
writeln(integer(sl.Objects[i]));
end;
sl.Free;
end.
Bei der Writeln Anweisung kommt als Fehlermeldung:
Code: Alles auswählen
Error illegal type conversion from TObject to LongInt
Das hat bei mir immer funktioniert, aber seit dem Umstieg auf Lazarus 1.8 und damit auf FPC 3.0.4 geht das irgendwie nicht mehr.
Hat irgendjemand eine Idee, was da bei mir falsch läuft?
Für Eure Hilfe wäre ich sehr dankbar.
Fritz