Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
Внизэтот код не работает, в файл не пишет :( Найти похожие ветки
← →
ValeX (2002-06-18 18:54) [0]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;
← →
MBo (2002-06-18 19:46) [1]fs:=TFileStream.Create("unix.txt",fmCreate);
fs.write(s[1],length(s));
fs.free;
← →
Poirot (2002-06-18 22:21) [2]
> 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;
Вот этот пишет.... ламером себя не строй...
Чушь а не ошибка....
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.006 c