Discussion :

[AgriFlash]

Bonjour à tous,

Cette question a sans doute déjà été posée de nombreuse fois mais je n'ai pas trouvé en utilisant la fonction recherche une réelle réponse !

Mon problème est simple, je veux stocker dans une variable de type String une chaîne de plus de 255 caractères, comment faire ?

Peut être faut il ajouter tous les 255 caractères ceci : '+', mais comment faire pour que cela se fasse automatiquement ?

Merci d'avance,
Tom.

[Aka Guymelef]

Bonjour le problème se situe-t-il au niveau de la compilation ou de l'exécution ?

[AgriFlash]

En fait je récupère le contenue d'un RichEdit pour le stocker dans un fichier.
Le problème est que, le texte est couper au bout de 255 caractères car une variable de type string ne peux pas en supporter plus !

Il y a donc les 255 premières caractères qui sont enregistrés

[droggo]

Hai,

Avec Delphi, il y a bien longtemps que le type String n'est plus limité à 255 caractères, mais peut en contenir 2^31-1 (ou 2^32-1, je ne sais plus).

Les chaînes limitées à 255 caractères sont des ShortString.

[Aka Guymelef]

Comme l'indique Droggo les String ne sont normalement plus limités à cette taille, sauf si vous utilisez une version ancienne de Delphi. Pour régler votre problème essayez de définir votre variable de type AnsiString si possible ou alors passez par un tableau de caractère en dernier recours.

[AgriFlash]

Effectivement j'utilise D4 alors c'est plus tout jeune

Je ne peux pas utiliser AnsiString car l'enregistrement ne se fait pas.

Il n'y a pas une autre solution à part un tableau de caractères ?

Il faudrai pouvoir décomposer la chaîne en 'Première partie'+'Deuxième partie'+'...' ...

Merci de vos réponses.

[Aka Guymelef]

Alors j'espère qu'il y a les tableaux dynamiques en D4

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
var
 cars: array of Char;
 CurNumLigne: Integer;
 CurIndex: Integer;
 Cpt: Integer;
begin
  CurIndex := 0;
  for CurNumLigne := 0 to RichEdit.Lines.Count - 1 do
  begin
    // agrandir le tableau du nombre de caractères de la ligne
    SetLength( cars, Length( cars ) + Length( RichEdit.Lines[CurNumLigne] ) );
    for Cpt := 1 to Length( RichEdit.Lines[CurNumLigne] ) do
    begin
      cars[CurIndex] = RichEdit.Lines[CurNumLigne][Cpt];
      Inc( CurIndex );
    end;
 
  end;
 
end;

Voila c'est l'idée pour concaténer le tout.

[AgriFlash]

Ok merci beaucoup !

Ca marche impeccable

J'ai fait une petite boucle pour mettre tout ça dans une chaîne de type String et c'est bon

[Nono40]

Effectivement j'utilise D4 alors c'est plus tout jeune

Le type String non limité date de Delphi 2 ! (passage en Win32 alors que Delphi 1 était Win16)

Par contre regarde dans test options de compilation si tu n'as pas coché l'option de "Chaine courte" ou un truc dans le genre.

[AgriFlash]

Par contre regarde dans test options de compilation si tu n'as pas coché l'option de "Chaine courte" ou un truc dans le genre.

Effectivement, il faut cocher "Chaînes vastes" mais cela ne change rien !

[ShaiLeTroll]

Euh, et Lines.SaveToFile en jouant avec PlainText devrait permettre de sauvegarder dans une fichier, ... sinon en passant via une TStringList temporaire et la propriété Text ...

et je confirme, j'ai toujours connu les string larges, j'ai travaillé de D3 à D7 ...

[AgriFlash]

Le problème doit venir de l'enregistrement dans le fichier car j'ai fait des test et AnsiString marche bien.

Je vais donc regarder ceci.

Merci de vos réponses

[AgriFlash]

Bon maintenant que je sais d'où viens exactement le problème je vais pouvoir vous demander de l'aide en étant plus précis.

Je dois donc enregistrer un chaine de plus de 255 caractères dans un fichier. Mais cela est impossible, voici un extrait que j'ai tirer sur un site pour mieux comprendre :

Les string de Delphi 32 sont de 2 types: les chaines longues et les chaines... courtes. La taille des chaines courtes est définie par l'utilisateur dans le source le programme, mais si cette taille est indéfinie, le string devient une chaine longue. Le fait de ne pas définir la taille de ce string provoque une erreur lors de sa sauvegarde dans un fichier de type "file of string" (ou, comme dans notre exemple, "file of record" si le record en question contient une chaine longue), car le programme ne sait pas où se termine la chaine (et peut déborder sur la mémoire). Pour l'ouverture d'un fichier, c'est encore pire: on déborde du fichier (théoriquement; mais Delphi empêche ce débordement). Delphi génère un message d'erreur à la compilation pour empêcher ce genre de problème.

Le fait de définir la taille du string pour le transformer en chaine courte crée une finalisation au string (ou au record si le string est contenu dans un enregistrement), d'où le texte du message d'erreur, qui indique une absence de cette finalisation.

Or moi je ne peux pas définir une taille du string étant donner que je ne peux pas mettre plus de 255, ce qui correspond à une chaine courte !

Quelqu'un a t'il une solution ?

Merci d'avance,
Tom.

[Aka Guymelef]

Et pourquoi tout simplement ne pas utiliser la solution de ShaiLeTroll ? A savoir utiliser la méthode SaveToFile de la propriété Lines de votre RichEdit ?

Sinon je penses qu'utiliser une variable de type TextFile avec les routines appropriées (AssignFile, ReSet, WriteLn, etc...) devrait faire l'affaire.

[AgriFlash]

Effectivement ça va tout simplifier, je vais utiliser "SaveToFile".

Merci à vous !