maison

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

Печать текста из Memo! У меня что то не так.... Trouver des branches similaires


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

Вот таким годом я пытаюсь вывест текст из MEMO на принтер:
if PrintDialog1.Execute then
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
begin
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) ;
end ;
fin;




Pages: 1 branche entière

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

à l'étage

Top.Mail.Ru Yandeks.Metrika













Mémoire: 0.8 MB
Heure: 0.034 c
14-22326
Mcsimm
2001-11-04 11:35
2002.01.08
Кто-то хотел размять (себе) мозги? Какие будут варианты алгоритма?


3-21945
asafr
2001-12-04 18:11
2002.01.08
FastReport. frBand.Visible


1-22242
Acide
2001-12-14 11:00
2002.01.08
POP3


1-22251
Rêveur
2001-12-17 14:17
2002.01.08
Подскажите начсет TLIST


3-21988
Andrew
2001-11-29 22:16
2002.01.08
SQL





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