Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];
Вниз
Создание Найти похожие ветки
← →
chak (2002-07-15 11:42) [0]Помогите пожалуста куском кода, ато замучился уже, файл создается но ничего туда не пишется.
Нужно всего одну строчку вставить в него!!!
← →
Johnmen (2002-07-15 11:53) [1]Приведи код, как создаешь...
← →
chak (2002-07-15 12:17) [2]Пробовал двумя вариантами:
1-й:
var
buf:PChar;
vf:File;
begin
AssignFile(Vf, ExtractFileDir(ParamStr(0))+"\zvit.bat");
Rewrite(Vf);
Buf:=PChar("copy c:\test.txt d:\text.txt");//для примера
BlockWrite(Vf,Buf,SizeOf(Buf));
CloseFile(Vf);
end;
2-й:
var
buf:PChar;
vf:TextFile;
begin
AssignFile(Vf, ExtractFileDir(ParamStr(0))+"\zvit.bat");
Rewrite(Vf);
WriteLn(Vf,"copy c:\test.txt d:\text.txt");
CloseFile(Vf);
end;
Ни так, ни так не работает, замучился уже!!!
← →
Johnmen (2002-07-15 12:36) [3]2-й вариант железно рабочий !!!
← →
chak (2002-07-15 12:37) [4]Но почему файл оздается и ничего туда не записивается, как проверить что я туда пишу, и вообще куда пишется?
← →
Poirot (2002-07-15 12:38) [5]Мудак если на работает... по крайней мере 2 вариант работает как часы.... Купи карту лапать... и головой об стол побейся, чтоб мозги умялись и извилины появились...
И большой совет - ламой себя на таких пустяках не выставляй....
← →
PVOzerski (2002-07-15 12:39) [6]А прога не в корневом каталоге, часом, лежит? Тогда при Вашем подходе будет двойной слэш получаться. Но, с другой стороны, тогда бы файл совсем не создавался, а он у вас только не заполняется. Сдается мне, что причина проблемы - вне пределов приводимого кода. А не пробовали этот кусочек проверить как отдельную маленькую программку? На вид-то в ней всё в порядке. Да и практически работает (сейчас проверил 2-й вариант).
← →
chak (2002-07-15 12:43) [7]Нет не в корневом, путь точно совпадает и файл то создается!!!
← →
chak (2002-07-15 12:44) [8]Отдельно попробую, недодумался сам!
← →
chak (2002-07-15 12:48) [9]Странно, отдельной прогой все заработало, странно, буду потеть дальше:)))
← →
chak (2002-07-15 13:01) [10]Блин, все работает, ничего нового не сделал!!!
Наверное "Poirot" помог! :)))
Спасибо всем!
← →
LENIN INC (2002-07-15 13:01) [11]Попробуй так:
procedure TForm1.Button1Click(Sender: TObject);
Var
f:TextFile; //указатель на текстовый файл
begin
AssignFile(f,"c:\zvit.bat"); //привязка названия к переменной
{$I-}
Append(f); //открыть файл для добавления
if IOResult<>0 then //если ошибка открытия (напр. файла нет)
begin
{$I-}
Rewrite(f); //создать новый файл
{$I+}
if IOResult<>0 then //ошибка создания файла
begin
ShowMessage("Ошибка создания файла C:\zvit.bat");
Exit;
end;
end;
// запись в файл строки
WriteLn(f,"copy c:\test.txt d:\text.txt");
CloseFile(f); // закрыть файл
end;
← →
Poirot (2002-07-15 15:50) [12]Очень рад!!! ]%)))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.007 c
