Независимый регистр(поиск)

[VankaNV]

Привет всем.
Имеется код поиска, как сделать независимый регистр?
заранее спасибо.

procedure poisk(var a: ft);
var i: integer;
  zk: spisok;
  Brand: string;
begin
  clrscr;
  reset(a);
  writeln('Vvedite brand dlja poiska ');
  readln(Brand);
  writeln('spisok s zadannym brandom ');
  while not eof(a) do
  begin
    read(a, zk);
    if zk.brand = Brand then
    begin
      write(' ', zk.brand);
    write(' ', zk.model);
    write(' ', zk.year);
    write(' ', zk.size);
    write(' ', zk.color);
    write(' ', zk.sex);
    write(' ', zk.price);
    write(' ', zk.height);
      writeln;
    end;
  end;
  close(a);
  writeln;
  readln;
end;

[Serge_Bliznykov]

нужно обе строки приводить к одному и тому регистру (либо нижнему - LowerCase, либо вверхнему - UpperCase).

Если в brand может быть исключительно латиница - тогда это совсем легко (см. функцию UpCase() )
если же в строке может быть в том числе и кириллица, то прийдётся использовать чуть более сложные варианты.
можно, например, такой взять:

function StrUpper(Str: PChar): PChar; assembler;
asm
        PUSH    DS
        CLD
        LDS     SI,Str
        MOV     BX,SI
        MOV     DX,DS
@@1:    LODSB
        OR      AL,AL
        JE      @@2
        CMP     AL,'a'
        JB      @@1
        CMP     AL,'z'
        JA      @@1
        SUB     AL,20H
        MOV     [SI-1],AL
        JMP     @@1
@@2:    XCHG    AX,BX
        POP     DS
end;



var
  s2 : PChar;
begin
  s2 := 'В щи добавляет не только французский сыр но и CalaMber';
  s2 := StrUpper(s2);
  WriteLn(s2);
end.

или модификация - такой вариант:

function UpChar (c:char):char;
Label	U1,U2,U6;
begin
  asm
	MOV	AL,c
	CMP	AL,060h
	JNA	U6
        CMP     AL,07Ah
        JA	U1
	SUB	AL,20h
        JMP     U6
U1:	CMP	AL,09Fh
	JNA	U6
	CMP	AL,0AFh
	JA	U2
        SUB	AL,20h
        JMP     U6
U2:	CMP	AL,0DFh
	JNA	U6
	CMP	AL,0EFh
        JA	U6
        SUB	AL,50h
U6:     MOV     [BP-1],AL
  end;
end;

function Upper(s:string):string;
var i:byte;
begin
  for i:=1 to byte(s[0]) do s[i]:=UpChar(s[i]);
  Upper:=s;
end;


var
  s : string;
begin
  s := 'Маша добавляет в щи французский сыр CalaMber?';
  s := Upper(s);
  WriteLn(s);
end.

или, если вариант с ассемблерной вставкой кажется слишком сложным/непонятным/опасным, можно попробовать ещё такой вариант:

function UpperRus(s : string) : string;
const 
  LoRus = 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
  UpRus : string = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
var i : integer;
begin
  for i:=1 to Length(s) do
    if Pos(s[i],LoRus)>0 then s[i] := UpRus[Pos(s[i],LoRus)]
    else s[i] := UpCase(s[i]);
  UpperRus := s
end;

begin
  Write(UpperRus('test is Only Best В чаще юга жил был цитрус!'));
  readln
end.

ну и дальше у себя пишите:

if UpperRus(zk.brand) = UpperRus(Brand) then
...

[VankaNV]

Спасибо большое, upcase как раз то что нужно.

Еще вопрос, чтоб уж не создавать новую тему:
есть процедура вывода данных, как пронумеровать каждую строчку?

[p51x]

выводить номер перед выводом строки