TString et String

Résolu

Tank01 Messages postés 106 Date d'inscription lundi 4 août 2003 Statut Membre Dernière intervention 10 novembre 2006 - 12 juin 2006 à 15:45
Tank01 Messages postés 106 Date d'inscription lundi 4 août 2003 Statut Membre 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 | )----

A voir également:

Tstring delphi
Delphi format - Conseils pratiques -Delphi
Delphi thread - Conseils pratiques -Delphi
Delphi decompiler ✓ - Forum Delphi / Pascal
Delphi stringreplace - Forum Delphi / Pascal
Delphi formatdatetime ✓ - Forum Delphi / Pascal

6 réponses

Réponse 1 / 6

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
12 juin 2006 à 23:38

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.

Réponse 2 / 6

cs_fjohnny Messages postés 46 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 18 septembre 2006
12 juin 2006 à 16:13

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

Réponse 3 / 6

Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
12 juin 2006 à 16:14

Salut,

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

@+
Cirec

Réponse 4 / 6

jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 13
12 juin 2006 à 16:21

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

Cirec Messages postés 3833 Date d'inscription vendredi 23 juillet 2004 Statut Modérateur Dernière intervention 18 septembre 2022 50
13 juin 2006 à 00:15

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>

Réponse 6 / 6

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

Merci beaucoupr delphiprrg, ta solution marche à la perfection !!

----( | TanK | )----

Discussions similaires

TString et String

Parametre de ShellExecute

StringReplace sur TStrings

Fonction Pos().

Convertir un png en jpeg Delphi XE

Votre réponse

Discussions similaires