type TPointWithName = record lpName: Array[0..10] of Char; nX: Integer; nY: Integer; end; ... procedure TForm1.Button1Click(Sender: TObject); var point: TPointWithName; begin with point do begin nX:= 10; nY:= 10; StrCopy(lpName, 'Hello world!'); // Devrait afficher "10 10". Bin non. ShowMessage(IntToStr(nX) + ' ' + IntToStr(nY)); end; end;
procedure TForm1.Button1Click(Sender: TObject); var lpChars: PChar; begin lpChars: = Pointer(3); StrCopy(lpChars, 'Hello world'); end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question« Quelle solution ai-je adoptée?
J'ai créé un nouveau type de TStringList qui possède un drapeau qu'on lève lorsqu'un joueur consulte la liste ou la modifie. Avec une gestion d'exception pour être sûr de rabaisser le drapeau en fin de compte. »