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

إلى

تحميل الملف! البحث عن فروع مماثلة


Socol   (2001-12-18 08:54) [0]

Здраствуйте! Почему когда данный код записывает информацию в файл то там получается не qqqqqq а какойто глюк всякие вопросики черточки?
الإجراء TForm1.Button3Click (المرسل: TObject) ؛
var FileHandle: Integer;
S: سلسلة ؛
بدأ
S:="qqqqqq";
FileHandle:=FileCreate("C:\q.txt");
FileWrite(Filehandle,S,sizeof(S));
FileClose (FileHandle) ؛
الغاية؛



MBo   (2001-12-18 09:00) [1]

потому что string - указатель, Sizeof=4. Делай,например, так.
var f: textfile؛
s: string؛
بدأ
S:="qqqqqq";
AssignFile(f,"C:\q.txt");
Rewrite(f);
Writeln (F ، S) ؛
CloseFile (F) ؛




Mick   (2001-12-18 09:29) [2]


FileWrite(FileHandle,S[1],Length(S))



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

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

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









الذاكرة: 0.55 ميغابايت
الوقت: 0.022 ج
1-22105
Gonza
2001-12-19 16:35
2002.01.08
تطبيق MDI ؟؟


7-22426
inferno123
2001-09-25 10:32
2002.01.08
برمجة الميناء


6-22300
evgen_2001
2001-10-04 12:25
2002.01.08
القائمة البريدية


4-22468
Zabl
2001-11-02 11:56
2002.01.08
تسرب الذاكرة


3-21937
ANDREY196
2001-12-04 18:24
2002.01.08
كيف يمكنني تغيير اللون في صف معين إلى جدول في DBGRID





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