Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Завантаження файлу! Знайти схожі гілки


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

Здраствуйте! Чому коли даний код записує інформацію в файл то там виходить не qqqqqq а какойто глюк всякі вопросики рисочки?
procedure TForm1.Button3Click (Sender: TObject);
var FileHandle: Integer;
S: string;
починати
S: = "qqqqqq";
FileHandle: = FileCreate ( "C: \ q.txt");
FileWrite (Filehandle, S, sizeof (S));
FileClose (FileHandle);
end;



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 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.54 MB
Час: 0.021 c
1-22207
Delphimun
2001-12-15 10:00
2002.01.08
Як вкомпільовані кілька файлів в один exe


4-22466
мистецтво
2001-10-31 15:21
2002.01.08
І ще, як обмежити площину руху миші межами форми?


1-22131
Катя
2001-12-20 08:27
2002.01.08
мені дуже потрібно


1-22088
Mikhalyov Dmitry
2001-12-19 14:58
2002.01.08
виклик події з програми


3-21898
Бред
2001-11-30 18:56
2002.01.08
Можна-ли асинхронно запустити збережену процедуру?





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська