| Цитата(Frees @ 22.10.2009, 14:50) | Цитата(Coderr @ 22.10.2009, 17:34  ) | | без PUser = ^TUser? |
религия запрещает? |
Почти. Надо будет всё остальное править. Лениво.
Добавлено через 14 минут и 47 секунд
Данные хранятся в файле. Я попробовал с указателем на TUser — не вышло.
Так я достаю данные:
| Код |
function getAllUsers: string;
var
f: file of TUser;
user: TUser;
tmp: PUser;
begin
AssignFile(f, 'passwords.psw');
Reset(f);
result := '';
while not Eof(f) do begin
Read(f, user);
with mainWindowForm.userList.Items.Add do begin
Caption := user.login;
ImageIndex := 0;
Data := GetMemory(sizeof(TUser));
Data := @user;
end;
end;
CloseFile(f);
end;
|
Так сохраняю:
| Код |
procedure deleteUser(login: string);
var
f: file of TUser;
user: PUser;
i: integer;
begin
AssignFile(f, 'passwords.psw');
Reset(f);
mainWindowForm.userList.ItemFocused.Delete;
for i := 0 to mainWindowForm.userList.Items.Count-1 do begin
user := mainWindowForm.userList.Items[i].Data;
Write(f, user^);
end;
CloseFile(f);
end;
|
Понимаю, что намудрил с указателями. |