Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

этот код не работает, в файл не пишет :(   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.009 c
14-1164
Bj
2002-05-29 14:01
2002.07.01
Требуется написать програмку, кот печатает квитанции клиентам...


1-1002
victorbur
2002-06-20 11:42
2002.07.01
По компоненту TEdit


1-1088
volph
2002-06-19 12:15
2002.07.01
как в ReachEdit разукрасить строки, сделать жирным?


7-1225
Schummi
2002-01-13 10:13
2002.07.01
МР3 - в линию???


1-948
Topten
2002-06-19 17:49
2002.07.01
TWebBrouser