Головна сторінка
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.81 MB
Час: 0.022 c
1-22243
Gumbert-Gumbert
2001-12-16 22:22
2002.01.08
Як в Дельфи взяти корінь n-го ступеня?


4-22503
Yura
2001-11-05 20:11
2002.01.08
Введення рядка у вікно


1-22238
T2
2001-12-16 07:29
2002.01.08
Визначити номер пункту меню


6-22312
Левіафан
2001-10-15 00:24
2002.01.08
Гей, хто розбирається в Indy? Потрібна допомога!


3-21927
Aleks_Vl
2001-12-04 09:47
2002.01.08
DTS + Delphi





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