Discussion :

[paulfr]

Bonjour,

Je vous propose un nouvel élément à utiliser : Graphe d'une fonction

GrFonDerv.exe utilisant un interpréteur permet de tracer le graphe d'une fonction de deX, polaire ou paramétrique et en complément celui d(une surface Z = f(X, Y).

Une succinte notice (GrapheFonct.txt) facititera l'utilisation de ce programme.



Ci-joint GeFonDerv.zip





Qu'en pensez-vous ?

[ALWEBER]

Bonjour,
Ci-joint GeFonDerv.zip
Qu'en pensez-vous ?

Bonjour,
Je ne suis pas sur que le fichier zip soit accessible. Mais peut être ne suis je pas réveillé

[SergioMaster]

Mais peut être ne suis-je pas réveillé

Bonjour, tu l'es (réveillé) ou alors on est 2 dans le même cas
?

[paulfr]

Bonjour,

J'ai l'impression que le .zip n'a pas été enregistré , je vais essayer de le faire.
avec mes excuses.

PL

[Alcatîz]

Bonjour,

Cela fonctionne à présent.
Merci pour cette contribution !

[paulfr]

Bonjour,

Je pense le problème résolu.

Je remercie particulièrement Alcatiz pour ses conseils efficaces.

Au sujet, de la mise à disposition d'un programme sur Developpez, quelle est la solution optimale pour le choix des fichiers :

- .pas c'est évidemment essentiel,
- .dcu est ce nécessaire,
- dpr, .cfg, .res … les fichiers crées par le compilateur ? ,
- .exe risque d'incompatibilité avec une version plus ancienne.
Faut-il fournir un installateur du programme ?

Peut-on se limiter à l'essentiel .pas ?

PL


PS : j'ai oublié d'inclure dans le zip Delphi_u.pas dont une seule fonction est utilisée dans GrFonDerv.exe : MakeStr :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 function MakeStr(const Args: array of const): string;
// Exemple, en partant de la fonction MakeStr ci-dessus, l'instruction
//    S := MakeStr(['Test ', 100, '-', True, '-', 3.14159]);
//   génère la chaîne suivante :  'Test 100-T-3.14159'
const
 BoolChars: array[Boolean] of Char = ('F', 'T');
var
 I: Integer;
begin
 Result := '';
 for I := 0 to High(Args) do
   with Args[I] do
     case VType of
       vtInteger:    Result := Result + IntToStr(VInteger);
       vtBoolean:    Result := Result + BoolChars[VBoolean];
       vtChar:       Result := Result + VChar;
       vtExtended:   Result := Result + FloatToStr(VExtended^);
       vtString:     Result := Result + VString^;
       vtPChar:      Result := Result + VPChar;
       vtObject:     Result := Result + VObject.ClassName;
       vtClass:      Result := Result + VClass.ClassName;
       vtAnsiString: Result := Result + string(VAnsiString);
       vtCurrency:   Result := Result + CurrToStr(VCurrency^);
       vtVariant:    Result := Result + string(VVariant^);
     end;
end;