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

Сохранение в файл   Найти похожие ветки 

← →
Creative   (2006-05-19 12:43) [0]

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

---

← →
Desdechado ©   (2006-05-19 12:46) [1]

в 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

---

← →
Elen ©   (2006-05-19 12:47) [2]

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

---

← →
Gydvin ©   (2006-05-19 13:43) [3]

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

---

← →
Creative   (2006-05-19 15:24) [4]

> Gydvin ©

спасибо

---

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

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



Память: 0.46 MB
Время: 0.025 c