Discussion :

[sky88]

bonjour tout le monde
je veux créer un fichier mais un champ de ce fichier je veux lui affecter une chaine de caractere mais qui contient 500 caractere mais le type string le max de caractere est 255
est ce que vous pouvez m'aider à trouver une solution
existe t il un type de string qui contient plus de 255 caracteres
merci

[defluc]

As-tu essayé ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TForm1.Button1Click(Sender: TObject);
Var
  Chaine : String;
  i : Integer;
begin
  For i := 1 to 500 do
  Chaine := Chaine + IntToStr(i) + ' | ' ;
  ShowMessage (Chaine);
end;

Cela marche et il y a bien plus que 500 caractères.

[sky88]

ce que je veux c'est un champs dans un enregistrement qui contient 500 caractere qui va recuperer ce qui est ecrit dans un MEMO

[rsc]

La question n'est pas claire claire mais si je comprends bien, tu veux charger une chaîne de plus de 255 octets dans un enregistrement ET l'enregistrer dans un fichier non typé.

Le problème est effectivement que pour l'enregistrement dans un fichier, le compil doit connaître la taille à donner à chacun des champs, ce qui oblige à déclarer tes String en String[..], ce qui est limité à 255 caractères.

Le mécanisme enregistrements / fichier non typé est pratique par sa simplicité pour des très petits usages , mais il a ses limites assez étroites.

Si tu connais une taille maxi au contenu de ton mémo, tu peux toujours le scinder en plusieurs String de 255 au niveau de ton enregistrement, et les concaténer lorsque tu veux les afficher. Sinon, je ne vois pas...

[LeGEC]

Salut,

Comme le dit rsc, précise un peu plus ta question.

Au sujet des types string :
Il y a deux types différents pour les chaines de caractères
- le type string
- et le type shortstring, ou string[14] (<- mettre n'importe quel chiffre <= 255 à la place du 14)

Le premier type peut contenir des chaines arbitrairement longues. Delphi stocke un tableau de caractères, et un compteur qui garde en mémoire la taille de la chaine de carctères. Si "MaChaine" est une variable de type string, tu peux obtenir sa longueur en appelant "Length(MaChaine)".

L'autre type est aussi un tableau de caractères, avec la convention suivante : le caractère 0 stocke la longueur de la chaine. Comme le caractère 0 est un caractère (sic...) la taille de ces chaines en peut pas dépasser 255. Quand tu déclares une variable de type "string[n]" , Delphi réserve en fait un tableau de n+1caractères, écrit #n dans la première case, et stocke les caractères que tu lui passes dans le reste du tableau. "shortstring" est la même chose que "string[255]".

Ce deuxième type est encore présent pour des raisons de compatibilité ascendante : c'était le seul type chaine des premières versions de Pascal, il est encore là aujourd'hui pour pouvoir compiler les vieux programmes.

Je n'ai pas très bien compris ce que tu voulais dire par "enregistrement" :
* si tu voulais dire "type Record" : tu peux parfaitement mettre un champ "String" dans un record, et lui affecter des chaines aussi longues que tu veux. "TMemo.Text" renvoie directement un string contenant le contenu entier du Memo ;
* si tu voulais dire "enregistrer dans un fichier" : réfléchis à ce que tu veux. Si tu veux pouvoir retrouver explicitement la fin de cette chaine de caractères précise, il faut soit que tu choisisses un moyen pour marquer la fin de la chaine : tu peux écrire la taille de la chaine juste avant d'écrire le contenu de la chaine proprement dite, tu peux écrire un #0 après la fin de la chaine... Si tu veux juste sauver le contenu d'un TMemo dans un fichier texte, regarde l'aide de "TMemo.Lines.SaveToFile"

*LeGEC*

[Paul TOTH]

bonjour tout le monde
je veux créer un fichier mais un champ de ce fichier je veux lui affecter une chaine de caractere mais qui contient 500 caractere mais le type string le max de caractere est 255
est ce que vous pouvez m'aider à trouver une solution
existe t il un type de string qui contient plus de 255 caracteres
merci

le type "statique", soit le ShortString est limité à 255 caractère. Mais tu peux déclarer un type spécifique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
type
  TString500=record
    Len : word;
    Chars: array[1..500] of char;
  end;

le champ Len étant utile si tu veux éviter de traiter Chars comme un PChar (zéro terminal)

la fonction "copy" de Delphi permet très facilement de passer de ce type à un type string (dynamique donc sans la limite des 255 caractères)

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
 
procedure TForm1.FormCreate(Sender: TObject);
var
 s500: TString500;
 str1: string;
 str2: string;
begin
 str1 := 'hello';
// string -> s500
 s500.Len := Length(str1);
 move(str1[1],s500.chars,s500.len);
// s500 -> string
 str2:=copy(s500.chars,1,s500.len);
 ShowMessage(str2);
end;

[aityahia]

salut

vous avez le type WideString que vous pouvez utiliser.

a+

[anapurna]

salut

le Type string contient bien plus que 255 caractère c'est le shortstring qui ce limite a 255
cet limitation n'est plus effective depuis la version 2 de delphi si je me souvient bien

@+ Phil

[Paul TOTH]

Si je puis me permettre...j'ai extrapolé la question dans ce sens :

rappel de la question :
"je veux créer un fichier mais un champ de ce fichier je veux lui affecter une chaine de caractere mais qui contient 500 caractere"

ma compréhension :
je voudrais déclarer ceci mais ça ne passe pas à la compilation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
type
 TString500=string[500];
 
 TMonRecord=record
  Nombre: Integer;
  Chaine : TString500;
 end;
 
 TMonFichier = file of TMonRecord;

d'où ma réponse