Discussion :

[vitch8]

Bonjour,

J'ai un programme développé en turbo pascal que je dois convertir avec Delphi XE.
Certaines fonctions en turbo pascal ne sont pas compatibles avec Delphi XE car obsolètes.
J'aimerai savoir si vous pourriez m'indiquer leur équivalent avec Delphi XE.

- MARK
- MEMAVAIL
- RELEASE

merci d'avance pour vos réponses

[ShaiLeTroll]

Euh, tu ne devrais pas plutôt repenser tout ton programme, refaire une analyse complète ?
Tu ne peux pas traduire une application Turbo Pascal (pour DOS ???) et Delphi XE pour Windows !
Faudrait faire les maquettes des écrans, modéliser les classes et la DB ...

MARK, oubli, on ne programme plus comme ça ! Tu vas pas nous faire un GOTO et modifié la Pile
Utilise le type Pointer et l'opérateur @ pour récupérer l'adresse d'une variable

MEMAVAIL, ... euh ben, GetHeapStatus ou GetMemoryManagerState,
GetProcessMemoryInfo, GlobalMemoryStatus

RELEASE voir New et Dispose, ou encore GetMem\FreeMem

[Paul TOTH]

Bonjour,

J'ai un programme développé en turbo pascal que je dois convertir avec Delphi XE.
Certaines fonctions en turbo pascal ne sont pas compatibles avec Delphi XE car obsolètes.
J'aimerai savoir si vous pourriez m'indiquer leur équivalent avec Delphi XE.

- MARK
- MEMAVAIL
- RELEASE

merci d'avance pour vos réponses

je viens de terminer la conversion d'un projet Turbo Pascal for Windows en Delphi...au départ je voulais virer tout le vieux code "Object Windows" pour le remplacer par des classes Delphi...en fait ce n'est pas si simple car on se retrouve avec des modifications impossibles.

exemple, remplacer les appels à l'API GDI par un TCanvas...ça semble bien, mais l'objet Canvas gère les handle un peu comme ça lui plait, et il n'est pas toujours possible de reproduire la logique du code GDI avec cet objet.

il faut donc soit repenser le programme (mais ça implique de connaitre l'application pour savoir où on va), soit y toucher le moins possible en cherchant à recréer les fonctions et objets qui n'existent plus (ce que j'ai du faire pour les flux d'objet TPW par exemple).

moralité, MARK, MEMAVAIL et RELEASE peuvent être "émulé" pour peu qu'on modifie aussi getmem() new() et cie.

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
var
  v1,v2,v3 : PVar;
begin
  mark;
  new(v1);
  new(v2);
  new(v3);
  release;
end;

ça peut se traduire sous Delphi si new() place v1, v2, v3 dans un TList par exemple, dont "mark" aura conservé la propriété Count pour que release puisse libérer les objets créés depuis.

mais bon c'est de la bidouille

[vitch8]

Merci pour vos réponses.

Je vais effectivement repenser tout le programme mais il y a une architecture que je souhaitais conserver c'est pourquoi j'ai demandé l'équivalent des fonctions.

J'ai réussi à convertir mon programme avec les fonctions GetMemoryManagerState et Dispose pour information.

Merci de votre aide rapide et précieuse.