TString et String [Résolu]

Tank01 106 Messages postés lundi 4 août 2003Date d'inscription 10 novembre 2006 Dernière intervention - 12 juin 2006 à 15:45 - Dernière réponse : Tank01 106 Messages postés lundi 4 août 2003Date d'inscription 10 novembre 2006 Dernière intervention
- 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
cs_Delphiprog 4580 Messages postés samedi 19 janvier 2002Date d'inscription 9 janvier 2013 Dernière intervention - 12 juin 2006 à 23:38
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

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 85 internautes ce mois-ci

Commenter la réponse de cs_Delphiprog
cs_fjohnny 49 Messages postés lundi 16 décembre 2002Date d'inscription 18 septembre 2006 Dernière intervention - 12 juin 2006 à 16:13
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
Cirec 4225 Messages postés vendredi 23 juillet 2004Date d'inscription 24 juin 2018 Dernière intervention - 12 juin 2006 à 16:14
0
Merci
Salut,

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

@+
Cirec
Commenter la réponse de Cirec
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 12 juin 2006 à 16:21
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
Cirec 4225 Messages postés vendredi 23 juillet 2004Date d'inscription 24 juin 2018 Dernière intervention - 13 juin 2006 à 00:15
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
Tank01 106 Messages postés lundi 4 août 2003Date d'inscription 10 novembre 2006 Dernière intervention - 13 juin 2006 à 09:01
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.