Discussion :

[nmathon]

Bonjour,

J'aimerais utiliser un fichier typé (à partir d'une structure record). J'ai un champ strDescription déclaré string[255] mais j'aimerais pouvoir y stocker plus de caractères (4 à 5 fois plus).

Évidemment, AnsiString, WideString, rien ne fonctionne. Quelqu'un saurait m'aider? Quel autre type de données pourrais-je utiliser?

Merci d'avance!

[Guile]

Salut ;-)
Pourquoi ne pas essayer TStringList ?

[nmathon]

Je peux stocker un TStringList dans le fichier? Dans un record, ça ne sera pas aimé non?

[bjl]

qui dit fichier typé, dit taille figée.

le plus simple, utiliser 4 ou 5 champs strdescription par record.


sinon, utiliser un champ string mais il faudra oublier le fichier typé et gérer soi même l'écriture et la lecture du fichier en mémorisant à chaque fois la longueur du string à l'écriture et en la lisant avant lecture pour connaitre le nombre de caractères à lire.
par contre çà permet d'utiliser les streams pour la lecture et l'écriture.

exemple

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
Type 
  TMyRecord = record 
    n : Integer;
    s : String;
    end;
 
  TMyRecordArray = Array of TMyRecord;
 
 
Procedure WriteRecords;
Var
  AFileStream : TfileStream;
  Index : Integer;
Begin
AFilestream := TFileStream.Create( NomFichier, FmCreate or FmOpenWrite);
AfileStream.Write( Length( MyRecordArray, 4)); // écrit le nombre d'items
For Index := 0 to high(MyRecordArray) do
  Begin
  AfileStream.Write( MyRecordArray.n, 4); // écrit la valeur de n
  AfileStream.Write( length(MyRecordArray.s), 4); // écrit la taille du texte
  AfileStream.Write( MyRecordArray.s[1], length(MyRecordArray.s)); // écrit le texte
  End;
AFileStream.free;
End;
 
Procedure ReadsRecords;
Var
  AFileStream : TfileStream;
  Index, ItemsCount, StringSize : Integer;
Begin
AFilestream := TFileStream.Create( NomFichier, FmCreate OpenRead);
AfileStream.read( ItemsCOunt, 4); // lit le nombre d'items à lire
SetLength(MyRecordArray, ItemsCount); // met à longueur le tableau de records
For Index := 0 to ItemsCount - 1 do
  Begin
  AfileStream.Read( MyRecordArray.n, 4); // lit l'integer
  AfileStream.Read( StringSize, 4); // lit la taille du texte
  AfileStream.Read( MyRecordArray.s[1], StringSize); // lit le texte
  End;
AFileStream.free;
End;

fait en live, je ne promets pas que çà soit sans bug.. mais c'est le principe.

[nmathon]

Je vais donc utiliser plusieurs champs.

Merci!