Поиск с независимым регистром

[bigbang22222]

имеется код программы с регистровым независимым поиском. как сделать так, чтобы программа искала строки с кириллицей?
begin
clrscr;
writeln ('Vvedite psevdonim personazha: ');
readln (poisk1);
der:= length (poisk1);
assign (p, 'C:\FPC\2.6.0\bin\i386-win32\spisok.txt');
reset (p);
while not eof (p) do
begin
read (p, heros);
poisk2:= copy(heros.psevdonim,1,der);
if (upcase(poisk1)=upcase(poisk2)) then
begin
writeln ('Psevdonim: ', heros.psevdonim);
writeln ('God poyavleniya: ', heros.god_p);
writeln ('Nastoyaschee imya: ', heros.n_imya);
writeln ('Poziciya: ', heros.poziciya);
writeln ('Rost: ', heros.rost);
writeln ('Ves: ', heros.ves);
writeln ('Cvet glaz: ', heros.glaza);
writeln ('Cvet volos: ', heros.volosi);
writeln ('Grazhdanstvo: ', heros.grazhdanstvo);
writeln ('Rod zanyatiy: ', heros.rod_zan);
writeln ('Snaryazhenie: ', heros.snaryazhenie);
writeln ('Sposobnosti: ', heros.sposobnosti);
end;
end;
close (p);
readln;
end;
end;

[TinMan]

Сообщение от bigbang22222

как сделать так, чтобы программа искала строки с кириллицей?

Проще всего - подменить функцию UpCase из модуля System своей. Но вопрос - какую из кириллических кодировок тебе нужно? DOS 866? Win 1251? или может KOI8-R?

Короче, напиши свою функцию вот такого типа..

function UpCase(s: string): string;
var
  i: integer;
begin
  s:= System.UpCase(s);  // this will take care of English letters
  for i:=1 to Length(s) do
    // here, add Russian code-page-specific char s[i] transfer
end;

[denisbrain]

Сообщение от TinMan

Проще всего - подменить функцию UpCase из модуля System своей. Но вопрос - какую из кириллических кодировок тебе нужно? DOS 866? Win 1251? или может KOI8-R?

Короче, напиши свою функцию вот такого типа..

function UpCase(s: string): string;
var
  i: integer;
begin
  s:= System.UpCase(s);  // this will take care of English letters
  for i:=1 to Length(s) do
    // here, add Russian code-page-specific char s[i] transfer
end;

function UpCaseRUS(s: string): string;
var
  grus,geng,i: integer;
begin
grus:=ord('А')-ord('а');
geng:=ord('A')-ord('a');

  for i:=1 to Length(s) do begin

  if s[i] in ['а'..'я'] then
   s[i]:=chr(ord(s[i])+grus);
  if s[i] in ['a'..'z'] then
   s[i]:=chr(ord(s[i])+geng);
  end;
    // here, add Russian code-page-specific char s[i] transfer
  result:=s;
end;

begin
  Writeln(UpCaseRUS('now ghb пример   '));
end.

[s-andriano]

Сообщение от TinMan

Но вопрос - какую из кириллических кодировок тебе нужно? DOS 866? Win 1251? или может KOI8-R?

utf-8.
-----