Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Escreva para o arquivo. Encontre agências semelhantes


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

Здраствуйте уважемые гопода програмисты!
Проблема я записываю информацию в файл там полючается какой то гон.
procedimento TForm1.Button1Click (Sender: TObject);
type t = record
Name:string[20];
Number:integer;
end;
vAR F:file of t;
A:t;
começar
AssignFile(F, "q.txt");
assignFile(F, "c:\q.txt") ;
rewrite(F);
write(F,A);
end;

procedimento TForm1.Button2Click (Sender: TObject);
var A:string;
começar
A := label1.caption
end;

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



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

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



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima















Memória: 0.81 MB
Hora: 0.041 c
1-22150
Dimich
2001-12-20 13:22
2002.01.08
Como rolar no painel


1-22057
AlexeyV
2001-12-19 03:34
2002.01.08
Como causar um diálogo


1-22192
Sonhador
2001-12-15 19:34
2002.01.08
Как из Time вытаскивать только секунды и переводить


14-22336
Ivan Shikhalev
2001-11-02 23:31
2002.01.08
Золотой банан


1-22205
Denis Proshkin
2001-12-15 12:46
2002.01.08
QReport - muitos dados





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese romeno Russian sérvio Slovak esloveno espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol