UpperCase + Русский язык

[TRSteep]

Пытаюсь сделать так:

Код: Выделить всё

for i:=0 to Memo.Lines.Count - 1 do
  begin
    Memo.Lines[i] := UpperCase( Memo.Lines[i]  );
  end;
end;

Английский работает нормально, а вот русский не работает...

Есть ли штатные средства решения проблемы или писать табличку замены?

[Mr.Smart]

В модуле LCLProc есть функция UTF8UpperCase и не только....

[TRSteep]

Mr.Smart о! спасибо большое!

ну для меня это еще густой лес...
вот разбираюсь по мере написания

PS первый запуск кнопки нормальн, при втором:

Project raised exception class 'RunError(211)'


код:

Код: Выделить всё

procedure TFormMain.Button_UpCaseClick(Sender: TObject);
var
  i: integer;
  SStrings: TStrings;
begin
  SStrings := TStrings.Create;
  SStrings := Memo.Lines;

  for i:=0 to Memo.Lines.Count - 1 do
  begin
    Memo.Lines[i] := UTF8UpperCase( SStrings[i] );
  end;

  SStrings.Free;
end;

Если убрать SStrings.Free в конце нормально.....
За собой не нужно чтоли удалять объект?

[Vadim]

SStrings: TStrings;

1. TStrings - класс абстрактный и он Вам показал свою "кузькину мать". Использовать его самого не нужно, а лучше взять какого-нибудь егоного потомка, например TStringList, у которого все методы прописаны и поэтому есть что использовать.
2. TMemo и сам по себе содержит TStrings (свойство Lines), поэтому его и нужно использовать, либо вообще, зная из чего состоит TStrings, обходиться более простыми методами, например:

Код: Выделить всё

procedure TFormMain.Button_UpCaseClick(Sender: TObject);
begin
    Memo.Lines.Text := UTF8UpperCase( Memo.Lines.Text );
end;

[TRSteep]

SStrings: TStrings;

1. TStrings - класс абстрактный и он Вам показал свою "кузькину мать". Использовать его самого не нужно, а лучше взять какого-нибудь егоного потомка, например TStringList, у которого все методы прописаны и поэтому есть что использовать.
2. TMemo и сам по себе содержит TStrings (свойство Lines), поэтому его и нужно использовать, либо вообще, зная из чего состоит TStrings, обходиться более простыми методами, например:

Код: Выделить всё

procedure TFormMain.Button_UpCaseClick(Sender: TObject);
begin
    Memo.Lines.Text := UTF8UpperCase( Memo.Lines.Text );
end;

1. Спасибо. Я вот читаю абстрактный абстрактный - а понять что делать с ним не могу
2. Ого... про text не подумал... Спасибо еще раз! я пробовал построчно делать, memo подтормаживает, а если через TStrings (теперь уже TStringList) делать нормально.

[VirtUX]

Абстракный - значит не содержащий ничего конкретного в самом себе, а лишь является указателем на что-то реальное. После метода SStrings.Free Вы уничтожаете то, что находится в Memo.Lines - вот Вам и ошибка при повторной попытке обработать Memo.Lines, так как его уже не существует.