pas sûr:
procedure DirectPrint(s: AnsiString);
var
PTBlock: TPassThroughData;
begin
// ZeroMemory(@PTBlock, SizeOf(PTBlock));
setlength(s,length(s)+1);
s[length(s)]:=#0;
pas sûr:
procedure DirectPrint(s: AnsiString);
var
PTBlock: TPassThroughData;
begin
// ZeroMemory(@PTBlock, SizeOf(PTBlock));
setlength(s,length(s)+1);
s[length(s)]:=#0;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.