Übersetzung C -> Delphi

[mkinzler]

Funktioniert:

Delphi-Quellcode:

...
var
  version, xtype : PChar;
  sversion, stype: string;
begin

  res := SearchReader(port, version, xtype); 
  if res >= 0 then
  begin
    sversion := version;
    stype := xtype; 
    lstStatus.Items.add('SearchReader successful');
    lstStatus.Items.add('Port: ' + intToStr(Port));
    lstStatus.Items.add('Version: ' + sversion);
    lstStatus.Items.add('Type: ' + sType);
  end; 
...

?