TString et String [Résolu]

Messages postés
106
Date d'inscription
lundi 4 août 2003
Dernière intervention
10 novembre 2006
- - Dernière réponse : Tank01
Messages postés
106
Date d'inscription
lundi 4 août 2003
Dernière intervention
10 novembre 2006
- 13 juin 2006 à 09:01
Bonjour,

Je suis entrain d'éssayer de gérer les imprimantes sous delphi, et suis confronté à un problème des plus simple !!!!
Voila, la propriété Printer de TPrinter permet de connaitre les imprimantes disponibles, et cette propriété renvoie un TString.
J'ai ainsi crée une variable de type String, car je souhaiterais stockée une liste de mes imprimantes disponibles dans un fichiers texte en fait. Le problème est qu'a la compilation, on me dit que String et TString ne sont pas compatible. Je ne souhaite pas afficher les imprimantes disponibles, mais je souhaite juste les écrire dans un fichier texte.

Merci de votre aide, bonne journée

----( | TanK | )---- 
Afficher la suite 

Votre réponse

6 réponses

Meilleure réponse
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Dernière intervention
9 janvier 2013
3
Merci
Cirec: je ne saisis pas bien le sens de ton code ci-dessus.

La réponse est pourtant simple :

uses Printers;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Printer.Printers.SaveToFile('MonFichier.txt');
end;


May Delphi be with you !
<hr color="#008000" />
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.

Merci cs_Delphiprog 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources a aidé 104 internautes ce mois-ci

Commenter la réponse de cs_Delphiprog
Messages postés
49
Date d'inscription
lundi 16 décembre 2002
Dernière intervention
18 septembre 2006
0
Merci
Salut,

A l'enregistrement, de ton Tstrings à tu essayé d'utilisé la méthode Text ?
Exemple :

Procedure test ;
var Texte : Strings;
      Liste : TStrings;
begin
Texte:=Liste.Text;
end;

Salutations,
fjohnny
Commenter la réponse de cs_fjohnny
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Dernière intervention
3 août 2018
0
Merci
Salut,

Var Prnt : TPrinter;
begin  
  ...
Prnt.Printers.SaveToFile('Nom de fichier');
  ...
End;

@+
Cirec
Commenter la réponse de Cirec
Messages postés
1651
Date d'inscription
samedi 10 juillet 2004
Dernière intervention
25 juillet 2014
0
Merci
salut;

déclare une  maliste:TStringList


ensuite tu fais :  maliste:TStringList.Create;


tu pourras l 'utiliser comme une TString normale


N'oublie pas de la libérer à la fin par Maliste.free;


@+

jlen
Commenter la réponse de jlen100
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Dernière intervention
3 août 2018
0
Merci
Alors oui,
là je me suis fais un cafouillage maison
Je ne sais pas ou j'avais la tête,
en tous cas pas au bon endroit

Mais heureusement tu veilles aux grains

@+Cirec<?xml:namespace prefix v ns "urn:schemas-microsoft-com:vml" /?><v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"> <v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /?><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path o:connecttype="rect" gradientshapeok="t" o:extrusionok="f"></v:path><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype>
Commenter la réponse de Cirec
Messages postés
106
Date d'inscription
lundi 4 août 2003
Dernière intervention
10 novembre 2006
0
Merci
Merci beaucoupr delphiprrg, ta solution marche à la perfection !!

----( | TanK | )---- 
Commenter la réponse de Tank01

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.