منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

اكتب إلى الملف. البحث عن فروع مماثلة


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

Здраствуйте уважемые гопода програмисты!
Проблема я записываю информацию в файл там полючается какой то гон.
الإجراء TForm1.Button1Click (المرسل: TObject) ؛
type t = record
Name:string[20];
Number:integer;
الغاية؛
vAR F:file of t;
A:t;
بدأ
AssignFile(F, "q.txt");
assignFile(F, "c:\q.txt") ;
rewrite(F);
write(F,A);
الغاية؛

الإجراء TForm1.Button2Click (المرسل: TObject) ؛
var A:string;
بدأ
A := label1.caption
الغاية؛

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



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

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



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي









الذاكرة: 0.55 ميغابايت
الوقت: 0.035 ج
14-22409
فاديم
2001-11-12 13:56
2002.01.08
أو ربما لن نفوز بأيدينا؟


14-22412
fishka
2001-11-12 14:50
2002.01.08
المكونات وموقعها لراحة المشغل (Delphi 3)


1-22158
Praco
2001-12-20 16:29
2002.01.08
TCustomGrid وجميع نسلها ...


6-22306
مامد
2001-10-09 12:57
2002.01.08
تفعيل نافذة البرنامج القديم أطلقت الوقت 2 عشر!


1-22124
التخلي عن
2001-12-18 02:16
2002.01.08
العلامات على jpg ، bmp it.d.





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch أنجليزي الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский