Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Escribir en archivo. Encontrar ramas similares


Socol   (2001-12-15 17:14) [0]

Hola queridos programadores de gopoda!
Проблема я записываю информацию в файл там полючается какой то гон.
procedimiento TForm1.Button1Click (Sender: TObject);
type t = record
Name:string[20];
Number:integer;
fin;
vAR F:file of t;
A:t;
comenzar
AssignFile(F, "q.txt");
assignFile(F, "c:\q.txt") ;
rewrite(F);
write(F,A);
fin;

procedimiento TForm1.Button2Click (Sender: TObject);
var A:string;
comenzar
A := label1.caption
fin;

+++ Cómo descargar la imagen de anemia * .gif +++
Agradezco a todos los que respondieron!



Art   (2001-12-15 17:28) [1]

Убери первую строчку после begin и используй лучше writeln далее ,чему у тебя равно А при нажатии на кнопку 1???



Páginas: 1 rama entera

Foro: "Principal";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba









Memoria: 0.81 MB
Tiempo: 0.15 c
1-22240
creepster
2001-12-16 19:20
2002.01.08
Botón


1-22232
T2
2001-12-16 07:24
2002.01.08
WIN386.SWP


1-22148
Delphimun
2001-12-20 12:10
2002.01.08
¿Cómo enviar un mensaje al sistema que una tecla es presionada?


14-22388
Esmerejón
2001-11-08 11:43
2002.01.08
Otra suciedad en la despensa.


14-22374
nikols
2001-11-01 16:03
2002.01.08
¿Cómo descansan los programadores? Y cuando





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish Francés
gallego georgiano Alemán Griego criollo haitiano hebreo hindi Húngaro islandés Indonesian irlandés Italiana Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español