Konvertierung String oder Dezimalzahl nach Hex in EZGPIB

[Echo (Gast)]

Ahoi,

ich versuche gerade einen Codeschnipsel zu finden der mir in EZGPIB 
einen Zahlenstring (Dezimal, Zahlenwert schwankt zwischen 0 und 2,6 
Milliarden) in einen String aus Hexadezimalzahlen umwandelt. Die 
Problematik besteht darin dass ich zwar viele Beispiele basierend auf 
der PASCAL-Programmiersprache finde, diese aber allesamt nicht direkt in 
EZGPIB funktionieren. Vielleicht benutzt ja hier jemand EZGPIB und kann 
mir helfen ein bestehenden Codeschnipsel anzupassen, damit dieser 
funktioniert.

z.B. dieser Schnipsel gefunden auf 
http://computer-programming-forum.com/29-pascal/9449404a18217f5e.htm

EZGPIB: http://www.ulrich-bangert.de/html/downloads.html

program hex_conv;

var
  gwar:string;

function Hex(v: Longint; w: Integer): String;
var
  s               : String;
  i               : Integer;
const
  hexc            : array [0 .. 15] of Char= '0123456789abcdef';
begin
  s[0] := Chr(w);
  for i := w downto 1 do begin
    s[i] := hexc[v and $F];
    v := v shr 4
  end;
  Hex := s;
end;

begin
  gwar:=hex(77,4);
  writeln(gwar);
  gwar:=hex(4096,4);
  writeln(gwar);
end.

Der EZGPIB-Compiler zeigt dann an dass er die Konstante hexc nicht 
akzeptiert. Wenn ich hexc nun statt als const als var verwende und nach 
begin mit den Arraywerten vollschreibe, meckert der Compiler an der 
Stelle   Hex := s; "invalid number of parameters". Ich sehe dort das 
Problem aber nicht, da ich mich nicht besonders auskenne in 
Programmiersprachen. Hier die von mir eben beschreiben geänderte 
Version:

program hex_conv;

var
  gwar:string;

function Hex(v: Longint; w: Integer): String;
var
  s               : String;
  i               : Integer;
  hexc            : array [0 .. 15] of Char;
begin
hexc[0] := '0';
hexc[1] := '1';
hexc[2] := '2';
hexc[3] := '3';
hexc[4] := '4';
hexc[5] := '5';
hexc[6] := '6';
hexc[7] := '7';
hexc[8] := '8';
hexc[9] := '9';
hexc[10] := 'A';
hexc[11] := 'B';
hexc[12] := 'C';
hexc[13] := 'D';
hexc[14] := 'E';
hexc[15] := 'F';
  s[0] := Chr(w);
  for i := w downto 1 do begin
    s[i] := hexc[v and $F];
    v := v shr 4
  end;
  Hex := s;
end;

begin
  gwar:=hex(77,4);
  writeln(gwar);
  gwar:=hex(4096,4);
  writeln(gwar);
end.

Danke

[Echo (Gast)]

Problem gelöst. Siehe: 
https://stackoverflow.com/questions/44587753/ezgpib-converting-decimal-string-to-hexadecimal-delphi-scripted-pascal