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

Запись в файл. Encontrar ramas similares


Socol (2001-12-15 17:14) (1)

Здраствуйте уважемые гопода програмисты!
Проблема я записываю информацию в файл там полючается какой то гон.
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;

+++Как загрузить анемационный рисунок *.gif+++
Благодарю всех кто ответил!


Arte (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.8 MB
Tiempo: 0.034 c
3-21923
Jugador de bolos
2001-11-30 02:16
2002.01.08
Una pregunta abstracta sobre la optimización.


1-22227
Tosov
2001-12-15 10:43
2002.01.08
Как работать с TInplaceEdit


14-22366
Vlados
2001-11-05 10:41
2002.01.08
Trazar


14-22405
Kozhanov
2001-11-12 11:53
2002.01.08
English puzzle


1-22061
Tracción a las ruedas
2001-12-18 19:44
2002.01.08
¿Por qué el formulario MDI no muestra MDIChild en el menú?





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 Italiano 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