* Remove debug statement

This commit is contained in:
Michaël Van Canneyt 2022-04-02 10:14:19 +02:00
parent 2b99abdd4d
commit aedb6dbacd

View File

@ -757,7 +757,6 @@ begin
I:=1;
if (Length(Value)>2) and (Value[2]=':') then
I:=2;
Writeln('Value ',Value, ' -> ',I);
Result:=Copy(Value,1,I)+StringToIdentifier(Copy(Value,I+1,Length(Value)-I));
end;