- Ја почнал/а темата
- #1
Aleks
Gaining Experience
- 18 мај 2007
- 5,748
- 288
Не бев фатил паскал во 2 месеци, па чера се тестирав колку сум заборавил, имав неколку проблеми но ја направив функцијата
Значи, ако имаме некој фајл со подесувања кои ни се важни за нашата програма, тогаш може да ги прочитаме со оваа функција и излезот на функцијата да го доделиме на некоја променлива:
Значи, ако имаме некој фајл со подесувања кои ни се важни за нашата програма, тогаш може да ги прочитаме со оваа функција и излезот на функцијата да го доделиме на некоја променлива:
Код:
program ReadSettings;
Function ReadValue(SFile,Sname,Delimeter: String):String;
VAR
WorkFile:TextFile;
IOR,J,K,B,X:Integer;
Line:String;
O:ARRAY[1..2] of String;
tmpC:Char;
BEGIN
Assign(WorkFile,SFile);
{$I+}
Reset(WorkFile);
{$I+}
IOR:=IOResult;
If IOR=2 then
begin
WriteLn('Settings file not found!');
Exit;
end;
While (NOT EOF(WorkFile)) do
begin
ReadLn(WorkFile,Line);
J:=length(Line);
B:=1; tmpC:=' '; X:=1;
//O[1]:=''; //O[2]:='';
repeat
//X:=X+1;
O[X]:='';
repeat
O[X]:=O[X]+Line[B];
tmpC:=Line[B];
//WriteLn(tmpC+' ++++++ '+O[X]);
B:=B+1;
until((B>J) OR (tmpC=Delimeter));
//WriteLn('Pred if O[',X,']:= ',O[X]);
if O[X]<>Sname+'=' then
break // MAIN
else
X:=X+1;
until(B>J);
end;
//WriteLn(O[2]);
//Ovalue:=O[2];
ReadValue:=O[2];
END;
BEGIN
WriteLn(ReadValue('/tmp/test.txt','ss','='));
END.