A:> Вот один из вариантов:
Думаю здесь все до безобразия прозрачно.
F - файл, откуда читаем
S, S1 - служебные переменные, строки (зачем s1 - думаю понятно)
'KEYKODE' - название читаемого параметра (регистр не имеет
значения - для этого и S1)
varKeyCode - собственно переменная куда читать.
while not eof(F) do Begin
readLn(F, S);
if S='' then continue;
if S[1]=';' then continue;
if Pos(';', S) <> 0 then {отсекает то, что не нужно}
S:=copy(S, 1, Pos(';', S)-1);
S1:=UpLine(S); {Функция перевода в верхний регистр}
if copy(S1, 1, Lenght('KEYKODE')+1) = 'KEYCODE ' then Begin
varKeyCode:=copy(S, Lenght('KEYKODE')+1, 255);
Continue
End;
[ scip about other KeyCodes =) ]
