Caractere

Salut

Ma question est tres simple. J'ai un array : Messages[1..70] of string;
Le probleme est que je voudrais y stocké des string tres long.... et je ne suis limiter qu'a 255... comment puis-je faire pour y mettre des texte de 1000 caractère et + ?

Merci beaucoup !

salut,
quand tu ne précises pas de dimension à string il s'agit d'un tableau dynamique et donc non limité en longueur (ou presque -->AnsiString    ~2^31 caractères  soit  de 4 octets à 2Go )
@+
jlen

type
  TMyMessages = array[1..70] of string;

var
  MSG : TMyMessages;

Implementation

uses StrUtils;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MSG[1] := DupeString('1234567890',200);
  caption := format('%d caracteres',[Length(MSG[1])]);
end;


tu pourras faire cela :

MSG[x] := Memo1.text; (x octects)
MSG[x] := ListBox1.Items.Text; (x octets)
MSG[x] := MSG[x] + ' chaine ' + VarString; (x octets)

mais tu ne pourras pas faire cela directement :

MSG[x] := ' chaine de + de 255 caracteres ';

---

La theorie c'est quand on sait tout, mais que rien ne fonctionne.
La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.

---

Si tu veux les taper directement dans l'éditeur, tu peux le faire de cette façon :

---

 const
  STRS: array[1..70] of string = ('ma chaine : première partie' + 'ma chaine: suite', + 'ma chaine: fin', 'mon autre chaine' ,...)

---

Comme cela, tu peux saisir une chaine de 2Go de taille (bonne chance ...).
Le truc, c'est de la fractionner dans l'éditeur tous les 255 caractères en mettant " + " entre les différentes parties de la chaine.

++

Si tu ne te plantes pas ......
tu ne pousseras jamais

D'accord.... ca fonctionne !

Je vous remerci de votre aide !