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

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

Сохранение в файл

Creative ©   (2006-05-19 12:43:00) 

Как, используя только функции WinApi, сохранить в файл список строк (string) разной длины и потом корректно его загрузить?

---

Creative   (2006-05-19 15:24:00) [1]

> Gydvin ©

спасибо

---

Gydvin   (2006-05-19 13:43:00) [2]

procedure TForm1.Button1Click(Sender: TObject);
var
 handl: THandle;
 s: string;
 count1: cardinal;
begin

//save
 handl := 0;
 s := memo1.text;
 count1 := 0;
 handl := CreateFile(PChar('test.txt'), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
 if not WriteFile(handl, pchar(s)^, Length(s), count1, nil) then showmessage('error');
 closehandle(handl);

end;

procedure TForm1.Button2Click(Sender: TObject);
var
 handl: THandle;
 s: string;
 count1, count2: cardinal;
 t: pointer;
begin
//read
 handl := 0;
 count1 := 0;
 count2 := 0;
 handl := CreateFile(PChar('test.txt'), GENERIC_READ, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 count2 := GetFileSize(handl, @count2);
 setlength(s, count2);
 ReadFile(handl, pchar(s)^, count2, Count1, nil);
 closehandle(handl);
 memo2.text := s;
end;

если нельзя мемо, то можно использовать след конструкцию

for x:=0 to countСТРОК-1 do
строка:=строка+#13#10+строкаX

---

Elen   (2006-05-19 12:47:00) [3]

После каждой строки добавляй символы скажем chr(13) и записывай, а при загрузке считывай все в память и разбивай на строки по этим символам.

---

Desdechado   (2006-05-19 12:46:00) [4]

в winapi нет строк
загрузить куда?

CreateFile Creates, opens or truncates a file
OpenFile Creates, opens or deletes a file
WriteFile Writes data to file or device
WriteFileEx Writes data to file or device
или
_hread Reads from a file
_hwrite Writes to a file
_lclose Closes an open file
_lcreat Creates or opens a file
_llseek Repositions the file pointer
_lopen Opens a file
_lread Reads from a file
_lwrite Writes to a file

---

Наверх