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

Вниз

Запись и чтение текстового файла.   Найти похожие ветки 

 
Swp   (2002-04-17 15:49) [0]

Как записать файл я знаю. Для этого я делаю следующее:

//-----------------------------------------
procedure WriteMe;
var
BatchFile: TextFile;
BatchFileName: string;
ProcessInfo: TProcessInformation;
StartUpInfo: TStartupInfo;
begin

{ создаём бат-файл в директории приложения }
BatchFileName := ExtractFilePath(ParamStr(0)) + "Имя_Файла.bat";

{ открываем и записываем в файл }
AssignFile(BatchFile, BatchFileName);
Rewrite(BatchFile);

{ Записывает строки }
Writeln(BatchFile, "Первая строка");
...
Writeln(BatchFile, "Последняя строка");

CloseFile(BatchFile);

FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow := SW_HIDE;

if CreateProcess(nil, PChar(BatchFileName), nil, nil,
False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
ProcessInfo) then
begin
CloseHandle(ProcessInfo.hThread);
CloseHandle(ProcessInfo.hProcess);
end;
end;
//-----------------------------------------------

Помогите, как можно прочитать этот файл примерно таким же образом.


 
Alx2 ©   (2002-04-17 15:54) [1]

Rewrite->ReSet
Writeln->Readln


 
AFROLOV ©   (2002-04-17 15:56) [2]

Попробуй не CreateProcess а ShellExecute(0,"open",PChar(BatchFileName),...) параметры посмотри в help.


 
hooky-mars ©   (2002-04-17 17:38) [3]

Попробуйте, что-то такое:
var StringList:Tstrings;
.....
StringList := TStringList.Create
StringList := TStringList.Create;
StringList.LoadFromFile("Text.txt");
{Чяго-то творим с StringList}
StringList.SaveToFile("Text.txt");
....
Или я, что не понял?




 
hooky-mars ©   (2002-04-17 18:49) [4]


> StringList := TStringList.Create

Одна лишняя



Страницы: 1 вся ветка

Текущий архив: 2002.04.29;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-94429
ppp
2002-04-18 03:54
2002.04.29
Сворачивание окна в TaskBar


3-94273
КСА
2002-04-08 11:25
2002.04.29
Дайте кто-нибудь пожалуйста IB 5.6


4-94620
Cheis
2002-02-23 23:54
2002.04.29
Здраствуйте. Как выключить в e равую клавишу мыши, чтобы popup меню не вылезало.


1-94438
Rooman
2002-04-14 09:15
2002.04.29
А законна ли экспертиза системного блока вообще?


6-94536
avk
2002-02-15 22:51
2002.04.29
TStream...получение картинки...