| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
этот код не работает, в файл не пишет :(
ValeX © (2002-06-18 18:54:00)procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
ss:string;
begin
ss:="ssfsfsfsdgsdfg";
fs:=TFileStream.Create("unix.txt",fmCreate);
for i:=0 to 10 do begin
fs.write(s[1],5);
fs.write(s[i],l);
end;
fs.free;
end;
Poirot (2002-06-18 22:21:00) [1]
> ValeX
лапух.... всё пишет... тока
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
s:string;
fs:TFileStreamж
begin
ss:="ssfsfsfsdgsdfg";
fs:=TFileStream.Create("unix.txt",fmCreate);
for i:=0 to 10 do begin
fs.write(s[1],5);
fs.write(s[i],l);
end;
fs.free;
end;
Вот этот пишет.... ламером себя не строй...
Чушь а не ошибка....
MBo (2002-06-18 19:46:00) [2]fs:=TFileStream.Create("unix.txt",fmCreate);
fs.write(s[1],length(s));
fs.free;
| |
