[Lazarus] Lire une ressource texte
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:
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
