Discussion :

[KristoV]

M'sieurs Dames, Bonjour

Je ne suis pas trop un habitué du forum Lazarus, je viens de commencer à utiliser ce soft. Ayant utilisé pas mal d'autres EDI (y compris Delphi), le "gros" ne m'a pas posé trop de problèmes.

J'ai toutefois un petit soucis. Je fais une petite application d'indexation de fichiers, j'ai quasiment tout implémenté ce que je voulais comme fonctions sans trop de problèmes mais y'en a un que je n'arrive pas à résoudre. Je fais appel à vos expériences pour voir si ça vient de moi qui ne sait plus coder (bah oui, c'est possible) ou du soft.

En effet, j'essaye de mettre un composant OpenDialog sur ma form de base, je compile, j'exécute ce composant (via une option dans un menu) et là, hop,

Code :

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

1
2
 
Project *** raised exception class 'External: SIGFPE'.

Bon, je fais OK, je continue :

Code :

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

1
2
 
Project *** raised exception class 'RunError(200)'.

Et en gros, après, il me dit division par 0 dans un ènième message.

Quelqu'un a déjà rencontré ce problème ? je n'en ai vu aucune trace dans mes recherches sur le net. Aurais-je oublié quelque chose ?

Voici tout de même le code par lequel j'appelle l'OpenDialog :

Code :

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

1
2
3
4
5
 
  if OpenDialog1.Execute then
  begin
    //ShowMessage(OpenDialog1.FileName);
  end;

[MCoder]

Je suis moi aussi un débutant sur Lazarus. Je viens du monde Delphi.
J'ai essayé ton code et je ne trouve aucun problème particulier, aucune erreur ni division par zéro. Vérifie la ligne Uses si tu as les bibliothèques nécessaires ... J'ai pris ton code et j'ai rajouté quelques lignes pour ouvrir Unti1.pas sur un TMemo et tout ce passe bien. Voici le code :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  EditBtn, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
var Texte : String;
    Ligne : String;
    f : TextFile;
begin
 if OpenDialog1.Execute then
  begin
    ShowMessage(OpenDialog1.FileName);
    Memo1.Clear;
    AssignFile(F, OpenDialog1.FileName);
    {$i-}
         Reset(F);
    {$i+}
    Texte := '';
    Repeat
       ReadLn(F, Ligne);
       Texte := Texte + Ligne + Chr(13)+Chr(10);
    Until EOF(F);
    CloseFile(F);
    Memo1.Text := Texte;
  end;
end;

[Dr.Who]

Code :

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

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

[Chin Tao]

Bonjour,

Je réagis un peu tardivement, mais j'avais eu un problème similaire sur les boîtes OpenDialog et SaveDialog lors du passage de Lazarus 0.9.22 à la version 0.9.24.
Même type de messages d'erreur sur des programmes non modifiés d'une version à l'autre. Ca s'est résolu tout seul avec l'upgrade suivant de Lazarus (0.9.26).
Apparemment à l'époque, j'étais le seul à avoir ce soucis.