Salut la compagnie !!!
Je suis un peu nouveau en Free Pascal donc excusez mes éventuels abus de langage. Donc pour résumer, mon prof m'a filé un code source en Free Pascal développé avec Lazarus sous Windows. 1er probleme, je suis sous Mac. J'ai réussi à installer Lazarus et à ouvrir le projet mais lors de la compilation : bug.
Voici les messages d'erreurs :
basicsdf.pas(11,76) Error: Assembler as not found, switching to external assembling
basicsdf.pas(11,76) Fatal: There were 1 errors compiling module, stopping
Et voici le code :
et ca continue. Le bug se pose au niveau de FileException=Class(Exception);
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
27
28
29
30
31
32
33
34 unit BasicSDF; {$mode objfpc}{$H+} interface uses Classes, SysUtils, strutils; type FileException=Class(Exception); { SDFmini } SDFmini=Class(TObject) private ffle: TextFile; fprptag: string; fprpval: string; fnme: string; ffend: boolean; fmol: TStringList; public constructor Create; constructor Create(flenme:string); destructor Destroy; override; procedure SetFile(flenme:string); function NextTMol: TStringList; property nme:string read fnme write fnme; property prptag: string read fprptag write fprptag; property prpval: string read fprpval write fprpval; property fend: boolean read ffend write ffend; end;
Mais je commence tout juste en Free pascal, et un coup de main de la communauté m'aiderais bien. Merci d'avance !!!
Partager