VPF::Запись и чтение текстового файла.

Vladimir

Дата 17.4.2002, 14:49 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

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

Код

//-----------------------------------------
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;
//-----------------------------------------------

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

Это сообщение отредактировал(а) p0s0l - 30.9.2005, 17:04

Vit

Дата 17.4.2002, 15:25 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 1
Всего: 207

Если таким же способом то

Код


procedure ReadMe;
var
 BatchFile: TextFile;
 s:string;
begin

AssignFile(BatchFile, BatchFileName);
Reset(BatchFile);
While not eof(BatchFile) do
  begin
    Readln(BatchFile, s);
    ...одна строка прочитана в переменную s - делай с ней что угодно, в следующем проходе будет считана следующая строка 
  end;
CloseFile(BatchFile);

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »