problème avec un TStringList

Version imprimable

Bonjour,

Voici la description de mon objet :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  TdtmDataModule = class(TDataModule)
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    NomMabase: string;
    MaBase: TStringList;
    DataRecord: TDataRecord;
    procedure SaveData(DataRecord: TDataRecord);
    //procedure LoadData(Index: Integer);
    procedure LoadData(Index: Integer; var Enregistrement : string);
  end;

et la procédure qui me pose des problèmes :

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
procedure TdtmDataModule.LoadData(Index: Integer; var Enregistrement : string);
var
  DataRecord: TDataRecord;
//  Enregistrement: String;
  Texte: String;
  GuidOperation: TGUID;
  Longueur : Integer;
begin
  //
  if FileExists(NomMabase) then
  begin
 
    MaBase.LoadFromFile(NomMabase);
 
    Enregistrement := MaBase.ValueFromIndex[0];
 
//    Enregistrement := IntToStr(MaBase.Count);
 
 
  Longueur := MaBase.Count;
 
 
//    Enregistrement := MaBase.ValueFromIndex[Index];
 
 
 
 
//    Enregistrement := MaBase.ValueFromIndex[Index];
    Enregistrement := MaBase.ValueFromIndex[Index];
 
 
    Texte := Copy(Enregistrement, 2, 38);
    DataRecord.GUID := StringToGUID(Texte);
    delete(Enregistrement, 1, 42);
 
    DataRecord.Date := StrToDate(Copy(Enregistrement, 1, 10));
    delete(Enregistrement, 1, 13);
 
    Texte := Copy(Enregistrement, 1, 8);
    DataRecord.Heure := StrToTime(Texte);
    delete(Enregistrement, 1, 11);
 
    Texte := Copy(Enregistrement, 1, pos('","', Enregistrement));
    DataRecord.Montant := StrToInt(Texte);
    delete(Enregistrement, 1, pos('","', Enregistrement) + 3);
 
    Texte := Copy(Enregistrement, 1, pos('","', Enregistrement));
    DataRecord.Description := Texte;
    delete(Enregistrement, 1, pos('","', Enregistrement) + 3);
 
    Texte := Copy(Enregistrement, 1, pos('","', Enregistrement));
    DataRecord.Categorie := StrToInt(Texte);
    delete(Enregistrement, 1, pos('","', Enregistrement) + 3);
 
    Texte := Copy(Enregistrement, 1, pos('","', Enregistrement));
    DataRecord.Compte := StrToInt(Texte);
    delete(Enregistrement, 1, pos('","', Enregistrement) + 3);
 
    Texte := Copy(Enregistrement, 1, pos('","', Enregistrement));
    DataRecord.Repetition := StrToInt(Texte);
    delete(Enregistrement, 1, pos('","', Enregistrement) + 3);
 
    Texte := Copy(Enregistrement, 1, pos('"', Enregistrement));
    DataRecord.Memo := Texte;
    delete(Enregistrement, 1, pos('"', Enregistrement) - 1);
    // delete(Enregistrement,1,StrLen(Enregistrement) - 1);
 
  end;
 
end;

Je n'arrive pas à récupérer mes données bien qu'en suivant le processus, le TstringList contient bien les éléments. Je ne comprends pas pourquoi il me retourne une chaine vide lorsque je pointe sur le premier élément de mon fichier.

Si vous avez une petite idée pour m'aider.

Merci pour vos réponses.

30/08/2023, 12h20
ShaiLeTroll

:tagcode:

Pas de boucle pour lire chaque ligne ?
Index de 0 à Count - 1, c'est Zero based et non One Based, un piège pour débutant (la string est one-based en VCL par exemple)

Tous ces Delete, c'est pratique car évite de gérer le décalage de positionnement mais c'est très lent.

Cela semble séparer par ,
une sorte de CSV ?
attention, le CSV américain c'est , le délimiter mais un CSV français c'est ; à cause de la différence de séparateur décimal respectivement . et ,

Une seconde TStringList en StrictDelimiter pourra découper l'enregistrement
Je préfére ExtractStrings ou ma propre fonction bien plus performante (avec FastMM) soit ExplodeLazy mentionné dans Chargement d'un fichier CSV dans une FDMemTable .

Stocker une base de données en fichier texte lu par une TStringList, c'est pauvre, c'est bien pour découvrir cette fonctionnalité lors d'un devoir scolaire, pour un professionnel, il faut songer à une solution plus évolutive, un XML avec TClientDataSet, un JSON avec TJSONObject si le mode fichier est vraiment requis sinon un SQLite semble bien mieux.
30/08/2023, 13h46
Andnotor

C'est plutôt un extrait du fichier qu'il faudrait fournir.

ValueFromIndex va retourne la partie à droite du signe égal dans une paire nom=valeur.
Pour une ligne complète ce sera simplement MaBase[Index].
30/08/2023, 17h04
SergioMaster

Citation:

Envoyé par ShaiLeTroll

Je préfère ExtractStrings

Je lui préfère Split ou SplitString
31/08/2023, 07h05
pascal pierre

Merci

Merci pour tous vos conseils, mon problème est résolu. Bien vu pour le ; comme séparateur, j'arrive à lire mon fichier dans Excel sans problème et enfin à lire mon fichier dans mon application.
Encore un grand merci à tous.

Pascal.