FileWrite - запись в файл

[Toxa]

Ф-ция записывает в файл на диске строчку S:= 'stroka' , в выбранном файле сохраняется ерунда, т.е. проблема с кодировкой. И в англиской xp и в руссифицированной xp тоже самое. По моему , глючит SizeOf(S) - она все время возвращает 4 байта.

procedure TForm1.btOneClick(Sender: TObject);
var
FileHandle: integer; // каждый файл имеет уникальный идентификатор
S: string;
begin
if SaveDialog1.Execute then
begin
// возвр. идентиф. файла или -1, если создать не удалось
FileHandle := FileCreate(SaveDialog1.FileName);
if FileHandle > 0 then
begin
S:= 'stroka';
// данные для записи во втором параметре
// третий - задаёт число записываемых байтов
FileWrite(FileHandle,S, SizeOf(S));
FileClose(FileHandle);
end
else
ShowMessage('Ошибка создания файла!');
end;
end;

[Romanus]

Вообщем я подкорректировал немного смотри:
const
//Буфер для записи
s1:array[1..3] of char = ('a','b','c');
var
FileHandle: integer;
S: string;
begin
if SaveDialog1.Execute then
begin
FileHandle := FileCreate(SaveDialog1.FileName);
if FileHandle > 0 then
begin
S:= 'stroka';
FileWrite(FileHandle,s1, high(s1));
FileClose(FileHandle);
end
else
ShowMessage('Îøèáêà ñîçäàíèÿ ôàéëà!');
end;

[ClauZzz]

high возвращает длину, только ограниченных массивов. Исполюзуй Length() и будет тебе счастье

Вопрос к модераторам (извиняюсь что не в тему), Почему в форуме для программистов так убого выглядит программный код, практически не читаемо. Все сдвинуто к левой границе, убраны все пустые строки. Стишек то неудобненько читать, а программный код и подавно

[AVer]

Для этого есть отдельная тема. Называется - Как улучшить форум.