Bonjour

j'essaie de lire un fichier mais sans resultat !

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
var res   : resource; 
 
    line  : string; 
 
begin 
      res := OpenResource('\fichier.txt'); 
 
      if (resourceAvailable(res)) then 
                                    begin           
                                    line := ReadLine(res); 
                                    SetColor( 0,255, 0);
                                    drawText(line, 10, 10);
                                    repaint;	
                                    Delay(1000); 
                                    CloseResource(res); 
                                    end else begin
                                                SetColor(255, 0, 0); 
                                                drawText('Erreur', 0, 0);
                                                repaint;
                                                Delay(1000); 
                                              end; 
SetColor(0, 0, 255);
drawText('Fini', 10, 10); 
repaint;      
Delay(1000);
 
end.
j'ai copie le fichier .txt dans tous les repertoires pour test mais rien n'y fait !
j'ai copie le chemin complet en vain !

merci
mario

PS:content qu'il y ait un forum MidletPascal j'avais parle de ce compilateur il y a quelques annees mais , passe totalement inapercu
zero-java/