DOs приложение.

@TEma · Регистрация: 01.02.2009

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

Здрасте.
ТУт такая проблемка организовалась.
НАдо дос приложение сделать которая бы читала из тхт файла допустим из с:\техт.тхт
Если делаю так

var
myFile : TextFile;
text : string;
begin
Writeln('*******************************************************');
AssignFile(myFile, 'Test.txt');
readln(myfile,text);
end.

То ошиба. Подскажите уважаемые гуру.

@ISergey · 01.02.2009, 14:23

Delphi

1	AssignFile(myFile, 'Test.txt');

в этой ф-ции надо полностью указывать путь, тоесть:

C++

1	AssignFile(myFile, 'c:\Test.txt');

@TEma · 01.02.2009, 15:19 **[ТС]**

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

Delphi

1	AssignFile(myFile, 'Test.txt');

в этой ф-ции надо полностью указывать путь, тоесть:

C++

1	AssignFile(myFile, 'c:\Test.txt');

При таком коде ничего не происходит маргает окно и все.
readln; в конце не помогает.

@ISergey · 01.02.2009, 15:44

Вот пример

Delphi

var
 myFileWrite: Text;
 myFileRead : Text;
 str: string;
begin
 AssignFile(myFileWrite,'C:\test.txt');
 Rewrite(myFileWrite);
 WriteLn(myFileWrite, 'Testing text !!!!!!');
 CloseFile(myFileWrite);
 
 AssignFile(myFileRead, 'C:\test.txt');
 Reset(myFileRead);
 Readln(myFileRead,str);
 WriteLn(str);
 CloseFile(myFileRead);
 Readln;
end.

@TEma · 01.02.2009, 15:47 **[ТС]**

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

Вот пример

Delphi

var
 myFileWrite: Text;
 myFileRead : Text;
 str: string;
begin
 AssignFile(myFileWrite,'C:\test.txt');
 Rewrite(myFileWrite);
 WriteLn(myFileWrite, 'Testing text !!!!!!');
 CloseFile(myFileWrite);
 
 AssignFile(myFileRead, 'C:\test.txt');
 Reset(myFileRead);
 Readln(myFileRead,str);
 WriteLn(str);
 CloseFile(myFileRead);
 Readln;
end.

Спаисбо. Тока тему уще не закрывайте.

Humanoid · 01.02.2009, 19:06

Если это ДОС приложение, то в Паскале вместо TextFile, AssignFile и CloseFile используется просто Text, Assign и Close.

@TEma 0 / 0 / 0 Регистрация: 01.02.2009 Сообщений: 3
		1
	DOs приложение. 01.02.2009, 13:57. Показов 1216. Ответов 5 Метки нет (Все метки) Здрасте. ТУт такая проблемка организовалась. НАдо дос приложение сделать которая бы читала из тхт файла допустим из с:\техт.тхт Если делаю так var myFile : TextFile; text : string; begin Writeln('*******************************************************'); AssignFile(myFile, 'Test.txt'); readln(myfile,text); end. То ошиба. Подскажите уважаемые гуру. 0

Humanoid Почетный модератор 11525 / 4320 / 448 Регистрация: 12.06.2008 Сообщений: 12,412
	01.02.2009, 19:06	6
	Если это ДОС приложение, то в Паскале вместо TextFile, AssignFile и CloseFile используется просто Text, Assign и Close. 0