| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Работа с файлами [D6, WinXP]

Stan ©   (2003-02-10 23:30:00) 

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

---

Stan   (2003-02-11 00:23:00) [1]

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

---

Pat   (2003-02-10 23:48:00) [2]

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;

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

---

Enderor   (2003-02-10 23:47:00) [3]

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 взят.

---

Yrtimd   (2003-02-10 23:46:00) [4]

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

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

---

Наверх