Скачать: CL | DM;

Работа с файлами   Найти похожие ветки 

← →
Stan ©   (2003-02-10 23:30) [0]

Подскажите, пожалуйста, как мне открыть файл (напр. текстовый) для чтения/записи, записать туда данные и как их потом от туда читать. Я раньше с паскалем работал, такой способ как там чего-то не проходит. Помогите, пожалуйста.

---

← →
Yrtimd ©   (2003-02-10 23:46) [1]

var F: TextFile;
S: String;

AssignFile (F, "filename.txt");
Append (F); (F); \\ Reset(F); Rewrite(F);
Read (F, S);
Write (F, S); \\WriteLn (F, S);
CloseFile (F);

Какие вопросы?..

---

← →
Enderor   (2003-02-10 23:47) [2]

var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;

begin
iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer, iFileLength);
FileClose(iFileHandle);
end;

Между прочим из help взят.

---

← →
Pat ©   (2003-02-10 23:48) [3]

var f:TextFile;
begin
assignfile(f,"c:\a.txt");
reset(f);
writeln(f,"fda");
closefile(f);
end;

var SL:TstringList;
begin
SL:=TStringList.Create;
SL.LoadFromFile("c:\a.txt");
SL.<делаем, что надо>;
SL.SaveToFile("c:\a.txt");
SL.Free;

Писал тут, может где и опечатался...на полноценный код это не претендует, но смысл должен быть ясен :-)

---

← →
Stan ©   (2003-02-11 00:23) [4]

Большое спасибо

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.599 c