Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

Ներբեռնեք ֆայլը: Գտնել նմանատիպ մասնաճյուղեր


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

Здраствуйте! Почему когда данный код записывает информацию в файл то там получается не qqqqqq а какойто глюк всякие вопросики черточки?
ընթացակարգ TForm1.Button3Click (Sender: TObject);
var FileHandle: Integer;
S: string;
սկսել
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");
Վերագրանցել (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];

Up









Հիշողություն `0.55 ՄԲ
Ժամանակը `0.027 գ
4-22508
Գլուկա
2001-11-06 00:18
2002.01.08
Հնարավո՞ր է փոխել կուրսորը ուրիշի պատուհանի վրա:


7-22440
Ռոմրուններ
2001-05-13 00:32
2002.01.08
Win98- ը հնարավորություն ունի թույլատրել ինտերնետի փոխանակումը տեղական ցանցի համար:


3-21947
Diehard
2001-12-05 13:18
2002.01.08
Acleուցանիշի ցուցակը վերցնելով Oracle աղյուսակից


4-22478
Ross
2001-08-28 16:53
2002.01.08
Մենյու սկիզբը


1-22053
կանաչապատ
2001-12-18 19:29
2002.01.08
ANTIALSING- ի համար TTF տառատեսակների համար:





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский