Bonjour,

J'aimerais lire un fichier texte que j'ai mis en ressource dans mon application mais je n'arrive pas à le lire ligne par ligne.... Peut-être pourrais-je le mettre dans un tableau mais je ne sais pas comment faire.

En plus il faudrait que je coupe chaque ligne au niveau de la tabulation, quelqu'un a-t-il une idée ?
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
unit Umain;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, StdCtrls;
 
type
 
  { TFrmMain }
 
  TFrmMain = class(TForm)
    BtnDec: TButton;
    Button1: TButton;
    Memo1: TMemo;
    procedure BtnDecClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  FrmMain: TFrmMain;
 
implementation
 
{ TFrmMain }
 
procedure TFrmMain.BtnDecClick(Sender: TObject);
var depart : string;
    i : integer;
begin
 
 
     Memo1.Lines.Add(lazarusresources.Find('devisrehau').Value);
 
 
 
end;
 
procedure TFrmMain.Button1Click(Sender: TObject);
begin
  showmessage(extractfilepath(application.exename)+'devisrehaucod.dat');
end;
 
initialization
  {$I umain.lrs}
  {$I devisrehau.lrs}
end.
Là je peux afficher mon fichier texte dans un TMemo, donc ce que j'aimerais c'est mettre ça dans un fichier de structure
- Reference
- designation
- conditionnement
- unité
- prix