Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.58 MB
Время: 0.024 c
1-95355
EugeneP
2002-07-18 11:56
2002.07.29
Delphi 5 и Delphi 6. Компиляция DLL


7-95583
MisterBin
2002-05-10 18:39
2002.07.29
По поводу CD (открыть-закрыть)


3-95250
ioRaptor
2002-07-08 20:39
2002.07.29
Как занести jpeg картинку в blob поле (InterBase)


1-95346
andrey_pst
2002-07-18 11:40
2002.07.29
Как узнать закончил ли работу *.exe


14-95485
Вова
2002-06-30 14:01
2002.07.29
Code Template





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский