файл рекордов

[itisiam]

Здраствуйте ув. форумчане. Я сделал простенькую игру и возникла проблема с сохранением рекордов.
Файл типизированный, есть 2 поля - массив [0..9] из integer (время например) и массив [0..9] в котором надо хранить имя; как известно string и тому подобное использовать нельзя, приходится создавать для каждого имени массив char итд. вобщем жутко не удобно, а у меня к тому же еще и как то странно работает (получается записать только одно поле записи, а другое всегда обнуляется).
Ну в общем не извесен ли вам более удобный способ хранения рекордов?
(или строк что в основном и нужно)
с файлом работаю как в паскале, мож лучше как то иначе?

[Квэнди]

почему нельзя в файл записать string ?

[Alex21]

Type MyRec=Record
           Name:string[10];
           time:integer;
end;

[Net]

Используйте TFileStream.

Есть у него метод WriteString, там уже строки без ограничений пишет без проблем.
Ну и соответственно, ReadString... WriteInteger, ReadInteger....

[Viteef]

известно string и тому подобное использовать нельзя

Надо просто указывать размерность
s:string[255]
Строчка - по сути тот же массив из переменных типа char.

[Simply-Art]

Вот какой код я использую примерно. Всё просто работа с INI файлами, если тебе не простота нужна была сори заморачивайся с типизироваными.

implementation

type
 ASD = record
  r:integer;
  n:string[255];
 end;

var
 mass:array[1..10] of ASD; // mass - это допустим массив в котором у тебя будут хранится рекорды и имена

{$R *.dfm}

procedure TForm1.LoadR;
var
 IniFile:TIniFile;
 i:integer; 
begin
i:=1;
IniFile := TIniFile.Create('in.tmp');
while i<>9 do //требуемое кол-во
 begin
  mass[i].r:=IniFile.ReadInteger('Название_уровня', IntToStr(i+1)+'Рекорд', 0);
  mass[i].n:=IniFile.ReadString('Название_уровня', IntToStr(i+1)+'Имя', '');
  inc(i);
 end;
IniFile.Free;
end;

procedure TForm1.SaveR;
var
 IniFile:TIniFile;
 i:integer;
begin
i:=1;
IniFile := TIniFile.Create('in.tmp');
while i<>9 do
 begin
  IniFile.WriteInteger('Название_уровня', IntToStr(i+1)+'Рекорд',  mass[i].r);
  IniFile.WriteString('Название_уровня', IntToStr(i+1)+'Имя', mass[i].n);
  inc(i);
 end;
IniFile.Free;
end;

[mutabor]

По моему для этого лучше всего использовать типизированный файл. Все что надо сохранить, сохраняй для удобства в одной переменной своего типа. Максимальная длина строки 255, для имени думаю хватит.

type
TMySave = Record
name: string[255];
score: integer;
//ну и т.д.
end;

var
MySave: TMySave;
SaveFile: File of TMySave;

//запись
AssignFile(SaveFile,'save.dat');
rewrite(SaveFile);
write(SaveFile,MySave);
closefile(SaveFile);

//чтение
Assignfile(SaveFile,'save.dat');
Reset(SaveFile);
read(SaveFile,MySave);
closefile(SaveFile);

[itisiam]

Млин была идея попробовать ограничить длину, но что то подумал что тоже не покатит )) спасибо, так и сделаю!