C nach Delphi übersetzen

[marabu]

Hi Matti,

Zitat von turboPASCAL:

Leider werde ich aus dem Code nicht schlau was die Funktion macht, wer kann helfen ?

in deinem Fall hast du mehrere Möglichkeiten der Umsetzung:

Delphi-Quellcode:

var
  Buffer: String;
begin
  // Printer name precedes first "," character.

  // Methode "es gibt kein morgen"
  SetLength(Buffer, Pred(Pos(',', Buffs)));

  // Methode "nix wegschmeißen"
  Buffer := Copy(Buffer, 1, Pred(Pos(',', Buffer))); 

  // Methode "keiner hat's gesehen"
  Buffer[Pos(',', Buffer)] := #0; // strtok()
end;

Grüße vom marabu