maison
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

vers le bas

Imprimer du texte à partir de Memo! J'ai quelque chose de mal .... Trouver des branches similaires


DelphiG   (2001-12-18 01:51) [0]

Вот таким годом я пытаюсь вывест текст из MEMO на принтер:
si PrintDialog1.Execute alors
Memo.Print("");
Quel est le problème?



False_Delirium   (2001-12-18 02:15) [1]

Var St : TextFile ; I : integer ;
commencer
if Print.Execute then
commencer
AssignPrn(St) ;
Rewrite(St) ;
Printer.Canvas.Font := Memo1.Font ;
For I := 0 to Memo1.Lines.Count-1 do Writeln(St,Memo1.Lines[1]) ;
CloseFile(St) ;
fin
fin;



Pages: 1 branche entière

Forum: "Main";
Archive actuelle: 2002.01.08;
Télécharger: [xml.tar.bz2];

à l'étage









Mémoire: 0.81 MB
Heure: 0.028 c
14-22318
gelure
2001-10-31 17:11
2002.01.08
Rembobiner


14-22381
Félix
2001-11-08 20:41
2002.01.08
Qu'est-ce?


1-22058
$ Hic0
2001-12-16 11:49
2002.01.08
TTreeView et TListView


14-22341
Dense
2001-10-26 13:55
2002.01.08
Programmes de compétitions - SEA COMBAT


1-22063
Art
2001-12-18 15:12
2002.01.08
Et vous pouvez bloquer l'accès au dossier, quelque chose comme fmShareExclusive, mais pour le dossier ???





afrikaans albanais Arabic arménien azerbaïdjanais basque Biélorusse Bulgare catalan Chinois simplifié) Chinois (traditionnel) croate Tchèque Danois Néerlandais English estonien Filipino Finlandais Français
galicien géorgien Allemand Grecque Créole haïtien hébreu Hindi Hongrois Islandais Indonesian irlandais Italien Japonais Coréen letton lituanien macédonien Malay maltais Norvégien
persan Polonais Portugais roumain Russe serbe Slovaque Slovène Espagnol Swahili Suédois Thai turc ukrainien Urdu vietnamien gallois yiddish bengali bosniaque
Cebuano espéranto gujarati Hause hmong Igbo Javanais Kannada Khmer lao latin maori Marathi mongol népalais punjabi somali tamil telugu yoruba
zoulou
Английский Français Allemand Italien Португальский Русский Espagnol