Создание файлов

@radik_del · Регистрация: 26.05.2013

Author24 — интернет-сервис помощи студентам

здравствуйте.
возник такой вопрос.
нужно создать файл,новый,которого нет на компьютере,путь и имя вводим через edit1.
как это реализовать?
если можно поподробнее.
спасибо.

@cotseec · 26.05.2013, 13:01

Сообщение от radik_del

создать файл,новый,которого нет на компьютере

проверить есть ли такой файл FileExists
создать файл CreateFile
создать файл можно и по другому, например через TFileStream

@radik_del · 26.05.2013, 13:11 **[ТС]**

Сообщение от cotseec

создать файл CreateFile

подробно можешь описать?

@cotseec · 26.05.2013, 13:23

Сообщение от radik_del

подробно

подробнее, чем по ссылке - нет

@radik_del · 26.05.2013, 13:42 **[ТС]**

Delphi

procedure TForm2.Button1Click(Sender: TObject);
Var
  F : File of Integer;
Begin
  F := CreateFile('edit1.text','c');
end;
 
end.

ошибку выдает в 5 строчке.

@pirat5320 · 26.05.2013, 14:35

какого рода ошибка? насколько я помню, в едите используется тип стринг, а путь указывается в PAnsiChar если я ничего не путаю...

@radik_del · 26.05.2013, 15:04 **[ТС]**

[Error] Unit2.pas(34): Operator not applicable to this operand type
[Error] Unit2.pas(34): Incompatible types: 'Cardinal' and 'Char'
[Fatal Error] Project1.dpr(10): Could not compile used unit 'Unit2.pas'

@volvo · 26.05.2013, 15:53

А ничего, что у CreateFile - 7 параметров, а задаются только 2? Что второй параметр должен иметь тип Cardinal, а задается Char? Еще раз иди и читай, что написано по ссылке.

@radik_del · 26.05.2013, 17:52 **[ТС]**

UI,
не соображу вообще как это сделать.
пример бы.а дальше сам подогнал бы.

Добавлено через 1 час 43 минуты

Сообщение от pirat5320

в едите используется тип стринг, а путь указывается в PAnsiChar если я ничего не путаю...

если не через едит задавть путь,то через что?

@pirat5320 · 26.05.2013, 18:39

Дело не в том через что создавать, главное как создавать к примеру зачем надо было писать 'edit1.text' в кавычках, это же не текст а обращение к месту хранения текста. Вообще что нужно просто создать файл или планируется какая либо работа с ним?

@radik_del · 28.05.2013, 16:44 **[ТС]**

pirat5320, CСоздать файл,компоненты которого являются целыми числами.Напишите программу,переписывающую компоненты файла в обратном порядке.(Новый файл не заводить.)

@саша40 · 28.05.2013, 16:55

А вот так можно:

Delphi

var
f1: TextFile; //пофиг, пишем текст :D
begin
AssignFile(f1,Edit1.Text);
Rewrite(f1);
Write(f1,'');
CloseFile(f1); //готово

@gorym · 29.05.2013, 00:25

Для создания файлов существует несколько способов:
1:
f:file; fname:string; {fname-путь\имя файла}
assignfile(f, fname); {}
rewrite(f); {}
***
closefile();

2:
createfile(f, char(fname));

для преобразования типов применяется процедура char()

@radik_del 0 / 0 / 1 Регистрация: 26.05.2013 Сообщений: 11
		1
	Создание файлов 26.05.2013, 12:56. Показов 828. Ответов 12 Метки нет (Все метки) здравствуйте. возник такой вопрос. нужно создать файл,новый,которого нет на компьютере,путь и имя вводим через edit1. как это реализовать? если можно поподробнее. спасибо. 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	26.05.2013, 13:01	2
	Сообщение от radik_del создать файл,новый,которого нет на компьютере проверить есть ли такой файл FileExists создать файл CreateFile создать файл можно и по другому, например через TFileStream 0

@radik_del 0 / 0 / 1 Регистрация: 26.05.2013 Сообщений: 11
	26.05.2013, 13:11 [ТС]	3
	Сообщение от cotseec создать файл CreateFile подробно можешь описать? 0

@cotseec Пишу на Delphi...иногда 1423 / 1278 / 286 Регистрация: 03.12.2012 Сообщений: 3,914 Записей в блоге: 5
	26.05.2013, 13:23	4
	Сообщение от radik_del подробно подробнее, чем по ссылке - нет 0

@pirat5320 11 / 11 / 0 Регистрация: 17.02.2013 Сообщений: 50
	26.05.2013, 14:35	6
	какого рода ошибка? насколько я помню, в едите используется тип стринг, а путь указывается в PAnsiChar если я ничего не путаю... 0

@radik_del 0 / 0 / 1 Регистрация: 26.05.2013 Сообщений: 11
	26.05.2013, 15:04 [ТС]	7
	[Error] Unit2.pas(34): Operator not applicable to this operand type [Error] Unit2.pas(34): Incompatible types: 'Cardinal' and 'Char' [Fatal Error] Project1.dpr(10): Could not compile used unit 'Unit2.pas' 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	26.05.2013, 15:53	8
	А ничего, что у CreateFile - 7 параметров, а задаются только 2? Что второй параметр должен иметь тип Cardinal, а задается Char? Еще раз иди и читай, что написано по ссылке. 0

@radik_del 0 / 0 / 1 Регистрация: 26.05.2013 Сообщений: 11
	26.05.2013, 17:52 [ТС]	9
	UI, не соображу вообще как это сделать. пример бы.а дальше сам подогнал бы. Добавлено через 1 час 43 минуты Сообщение от pirat5320 в едите используется тип стринг, а путь указывается в PAnsiChar если я ничего не путаю... если не через едит задавть путь,то через что? 0

@pirat5320 11 / 11 / 0 Регистрация: 17.02.2013 Сообщений: 50
	26.05.2013, 18:39	10
	Дело не в том через что создавать, главное как создавать к примеру зачем надо было писать 'edit1.text' в кавычках, это же не текст а обращение к месту хранения текста. Вообще что нужно просто создать файл или планируется какая либо работа с ним? 0

@radik_del 0 / 0 / 1 Регистрация: 26.05.2013 Сообщений: 11
	28.05.2013, 16:44 [ТС]	11
	pirat5320, CСоздать файл,компоненты которого являются целыми числами.Напишите программу,переписывающую компоненты файла в обратном порядке.(Новый файл не заводить.) 0

	29.05.2013, 00:25

@gorym 0 / 0 / 0 Регистрация: 28.05.2013 Сообщений: 3
	29.05.2013, 00:25	13
	Для создания файлов существует несколько способов: 1: f:file; fname:string; {fname-путь\имя файла} assignfile(f, fname); {} rewrite(f); {} *** closefile(); 2: createfile(f, char(fname)); для преобразования типов применяется процедура char() 0