[Delphi] Conversion string > tstrings?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] Conversion string > tstrings?

Ipso

Bonsoir,

J'essaie de faire une fonction qui convertit une string en TStrings, les éléments à insérer dans TStrings étant séparés par des ; dans string.

Voilà ce que j'ai fait:

Code :

function strtotstr(str: string): TStrings;
var
tstr: TStrings;
begin
tstr := tstr.Create;
while (gauche(';', str) <> '') do
begin
tstr.Add(gauche(';', str));
str := droite(';', str);
end;
result := tstr;
tstr.Free;
end;

gauche et droite servent à extraire les sous-chaines délimitées par le ;

Quelqu'un peut me dire pourquoi ça ne marche pas? Je suis pas assez doué pour voir mon erreur là...

Merci

Message édité par Ipso le 25-05-2004 à 20:42:07

Publicité

antp

Super Administrateur
Champion des excuses bidons

Ça irait plus vite de dire où il n'y a pas d'erreur :whistle:

Version propre "vite faite" (pour la découple on pourrait faire mieux, mais c'est pas simple, et avant que cette solution ne pose des problèmes on a le temps de voir venir) :

Code :

function strtotstr(const str: string): TStringList;
var
tstr: TStringList;
begin
tstr := TStringList.Create;
tstr.Text := StringReplace(str, ';', sLineBreak, [rfReplaceAll]);
Result := tstr;
end;

Tu ne peux pas libérer le TStrings sinon tu retournes un pointeur ne valant plus rien de concret.
C'est l'appelant qui doit le libérer.
Pour cette raison, en général l'appelant crée le TStrings et le passe en paramètre à une procédure (pas de valeur de retour donc).
Pour créer un objet, on appelle le Create de sa classe, pas de l'objet lui-même vu qu'il n'existe pas encore !
On ne crée jamais de TStrings. C'est juste une classe générique (par ex pour le type de paramètre passé à la procédure/fonction) de laquelle dérivent TStringList et autres similaires.
Ta version marcherait peut-être pour la découpe, mais j'ai pas le courage de réfléchir. À la limite après avoir corrigé le Create et le Free tu peux la tester.
Quand tu dis que ça ne marche pas, tu aurais pu dire que ça crashait avec une Access Violation (je suppose). "Ça marche pas" ce n'est pas une erreur acceptable

Message édité par antp le 25-05-2004 à 23:48:35

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Ipso

Oui, dsl, je sais que c'était un peu vague, mais Delphi me sortait directement la fenêtre de débogage, j'étais un peu perdu... Encore une fois, je m'en suis sorti avec tes indications, merci

FORUM HardWare.fr

Programmation

Delphi/Pascal

[Delphi] Conversion string > tstrings?

Sujets relatifs
problème de conversion d'un hexadécimal en binaire !	[Java] Problème pour convertir un string en entier [resolu]
String -> boolean	Conversion CString en char* ?
(je débute delphi) bouton avec index.	Conversion dun projet VBA -> VB.Net ou VB
problem conversion char* -> string sous visual .net	arreter une requete SQL dans Delphi
[asm] conversion chaine numerique flottante en base 10
Plus de sujets relatifs à : [Delphi] Conversion string > tstrings?

Page générée en 0.034 secondes