Discussion :

[koolkris]

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

[chris37]

Bonjour,

Tu veux lire le memo ligne par ligne ?

Utilise la propriété memo.lines.count pour connaitre le nombre de ligne
Ensuite tu parcours les lignes avec en lisant la valeur de memo.lines[x] ou x est compris entre 0 et le nombre de lignes-1.

A besoin, dans tes lignes de ton fichier texte, separes tes colonnes par un ;
Ensuite quand tu lis une ligne, tu decoupes en utilisant la fonction extractdelimited (unité strutils) de lazarus.

Voilà, tu as la piste à suivre !

Un memo n'est rien d'autre qu'un tstringlist visuel !

Cela te convient ?
Pourquoi mettre un devis dans une ressource ? je vois pas là!

Chris

[koolkris]

Ouais nan en fait j'ai pas de memo, j'ai mis le fichier dans un tableau structuré et je me suis debrouillé avec stringreplace et copy et ça le fait.

Merci quand meme

[chris37]

Bonsoir,

A mon avis, ta solution n'est peut être pas la bonne, même si ca marche.
Penses toujour au portage et aux normes d'echanges !

Je dis cela comme ca

@+
Chris

[koolkris]

ah oui ça c'est possible que ce ne soit pas la bonne lol mais bon ça marche et autrement je ne vois pas comment faire...