без учета регистра

[supernewbie]

как сделать так, чтобы текстовая проверка шла без учета регистра?
чтобы на проверку в строке слова 'сейчас' он находил
сеЙчас Сейчас и тд
вообщем вы меня поняли) срочно хелп)

[Breadfan]

UPPERCASE(s: string)\lowercase(s: string)

[supernewbie]

а именно?

[Sherman]

Pascal для чайников на Google.com

[Fer123]

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

а именно?

Lowercase(s:string); опускает все символы строки в нижний регистр.
str:=QwErty;
if Lowercase(str)='qwerty' then ... условие выполнится

[alexteam]

небольшая такая ложечка дегтя.
реализация уппер\ловеркейс выглядит как то так.

function UpperCase(const S: string): string;
var
  Ch: Char;
  L: Integer;
  Source, Dest: PChar;
begin
  L := Length(S);
  SetLength(Result, L);
  Source := Pointer(S);
  Dest := Pointer(Result);
  while L <> 0 do
  begin
    Ch := Source^;
    if (Ch >= 'a') and (Ch <= 'z') then Dec(Ch, 32); //ложка дегтя.
    Dest^ := Ch;
    Inc(Source);
    Inc(Dest);
    Dec(L);
  end;
end;

[supernewbie]

черт) да они же в фастскрипт встроены)
fail

[alexteam]

я про то что он так в делфе реализован. (во всяком случае в той на которой билдилсо)
т.е. тупо для "a..z" нет никаких "а..я"

[Breadfan]

Ну хз, прогнал пару раз код

a:='......';
SendMsg(Uppercase(a));
SendMsg(Lowercase(a));

с такими результатами:

23.08.2010 15:58:36 Script: !А@б&В*г(Д)е"Ё;ж/З.иКлМнОпРсТ(LaT)AbCdEzYw$%^&*()__+=-0532;
23.08.2010 15:58:36 Script: !А@Б&В*Г(Д)Е"Ё;Ж/З.ИКЛМНОПРСТ(LAT)ABCDEZYW$%^&*()__+=-0532;
23.08.2010 15:58:36 Script: !а@б&в*г(д)е"ё;ж/з.иклмнопрст(lat)abcdezyw$%^&*()__+=-0532; 

Не знаю как ошибку вызвать...если вручную добавлять значения спец.символов - они просто обрезаются....

[alexteam]

знач встроено в ФС что-то свое.
прост когда диалоги с неписями скриптами у себя в проекте обвязывал (кодиццо на Д7 СП2) столкнулся с проблемой непониямания sysutils.uppercase русских букоф.