Значит нужно прочитать файл типа конфиг!
такие для игр делают типа:

wireframe off
snd_freq 22khz
vid_bpp 16
vid_mode 1024x768

Т.е конфиг может изменяться
on изменяться на off
22khz изменяться на 44khz
16 изменяться на 32
1024x768 может изменяться на 800x600 а то и на 640x480

Как это сделать РАЦИОНАЛЬНО!!!???

1) Завести INI
2) Поработать со строкой, т. е. копировать всё, после пробела, а далее if, изменение и т. п.

INI, конечно, хорошо.... спору нет....
а неудобнее ли табличкой воспользоваться?

Цитата(Pakshin @ 3.3.2004, 16:57)

1) Завести INI 2) Поработать со строкой, т. е. копировать всё, после пробела, а далее if, изменение и т. п.

Да я вот и спрашиваю как культурно реализовать пункт №2
строки же местами могут меняться!

Ну, я сделал бы так:

type
TConfig = record
wireframe: Boolean;
snd_freq: Integer;
vid_bpp: Integer;
vid_mode_x: Integer;
vid_mode_y: Integer;
end;

Далее для записи его в файл:

FileStr: TFileStream;
Config: TConfig;


with Config do begin
Тут отутюживаем Config
end;

FileStr := TFileStream.Create('Conf.cgf', fmOpenWrite);
FileStr.WriteBuffer(Config, SizeOf(Config));
FileStr.Free;

И читаем:
FileStr.ReadBuffer(Config, SizeOf(Config));

Цитата(Sniper @ 3.3.2004, 21:04)

Цитата(Pakshin @ 3.3.2004, 16:57) 1) Завести INI 2) Поработать со строкой, т. е. копировать всё, после пробела, а далее if, изменение и т. п. Да я вот и спрашиваю как культурно реализовать пункт №2 строки же местами могут меняться!

Открой любую статейку по работе состроками, глянь в FAQ'и. Попробуй разобраться сам, ну а если не получится, что заставляет задуматься, напишем...

Я могу только так написать ;-(

wireframe
off
snd_freq
22khz
vid_bpp
16
vid_mode
1024x768

Более того оно написано и работает!


procedure LoadUserConfig;
var
Fconfig: TextFile;
S: String;
begin
AssignFile(fconfig,'user.cfg');
Reset(fconfig);
while not EOF(fconfig) do
begin
Readln(fconfig,s);
if s = 'rs_fullscreen' then
begin
Readln(fconfig,s);
if s = 'on' then
rs_fullscreen := true;
if s = 'off' then
rs_fullscreen := false;
end;
if s = 'rs_wireframe' then
begin
Readln(fconfig,s);
if s = 'on' then
rs_wireframe := true
else
rs_wireframe := false;
end;
end;
end;

Вот мой вариант решения:
1. обявим новый тип и ее переменную:

Код

Type TGameOption = Record            cmd: String;            value: String;        end; ... var go: TGameOption;

2. Создадим функцию

Код

Function GetGO (Line: String): TgameOption; var symb: Char; begin symb := ' '; // если данные хранятся в виде "command value" //если  в виде "command=value" то замените symb :='='; Result.cmd := trim (Copy (Line, 1, (Pos (symb, Line))); Result.value := trim (Copy (Line, (Pos (symb, Line), length(Line))); end;

3. в теле самой программы такой цикл:

Код

AssignFile (FConfig, 'user.cfg'); Reset (FConfig); while not EOF (FConfig) do begin Readln (FConfig, s); GO := GetGo(s); // обрабатываем варианты комманд if Go.cmd="..." then                             begin                                if Go.value="..."  then SomeVar := "...";                                     {...}                                if Go.value =".."  then SomeVar := "...";                             end; end; CloseFile (FConfig);

Я не проверял, так что может вариант и нерабочий
ps а вообще-то наверное проще через форматирование строки т.е. RegEx но в них я "0"

Можно конечно и с текстовыми файлами играться , но проще использовать готовый инструмент - Ини-файлы. В Делфи для этого уже все есть в модуле IniFiles.

Процедура для чтения из ини-файла

Код

uses IniFiles; procedure LoadFromIni(iName:string); var  IniFile:TIniFile;  s:string;  i:integer;  b:boolean; begin  IniFile:=TIniFile.Create(iName);  s:=Trim(inifile.readstring('main','snd_freq',''));  i:=inifile.readinteger('main','vid_bpp',0);  b:=inifile.readbool('main','vid_bpp',false);  IniFile.Free; end;

Процедура для записи в ини-файла

Код

procedure SaveToIni(iName:string); var  IniFile:TIniFile;  s:string;  i:integer;  b:boolean; begin  IniFile:=TIniFile.Create(iName);  inifile.writestring('main','snd_freq',s);  inifile.writeinteger('main','vid_bpp',i);  inifile.writebool('main','vid_bpp',b);  IniFile.UpdateFile;  IniFile.Free; end;

p.s. возможны мелкие ошибки - написано без проверки на делфи

Это сообщение отредактировал(а) remax - 3.3.2004, 22:00

Я вообще не знал про такую функцию как "trim"! ;-(
Позор мне и порицание!

remax Да Ini файлами я пользоваться умею....(все равно спасибо что написал! ) я хотел сделать так как это делает большенство!

Цитата(Sniper @ 3.3.2004, 18:51)

я хотел сделать так как это делает большенство!

В каком смысле "большинство"?

Это сообщение отредактировал(а) remax - 3.3.2004, 22:04

Цитата(remax @ 3.3.2004, 19:02)

Цитата(Sniper @ 3.3.2004, 18:51) я хотел сделать так как это делает большенство! В каком смысле "большинство"?

Впрямом! У всех игрушек конфиги сделаны по такому принципу
Quake III
CS
DOOM III
S.T.A.L.K.E.R.

2 Sniper

Цитата

... S.T.A.L.K.E.R. ...

Откуда тебе знать какие там конфиги? Еще даже демки нет, а ты про конфиги говоришь...

Модератор: Давайте вернемся к теме обсуждения.