Функция UpCase

← →
dik (2004-03-24 15:19) [0]

Уважаемые мастера! Не могу понять почему в моем проекте не работает UpCase?

str:=NameEdit.Text;
for i:=1 to length(str) do
str[i]:=UpCase(str[i]);
NameEdit.Text:=str;

Создаю новый проект, в нем этот кусок кода работает?

← →
Defunct © (2004-03-24 15:20) [1]

Попробуйте:

NameEdit.Text := UpperCase(NameEdit.Text);

← →
dik (2004-03-24 15:29) [2]

UpperCase тоже игнорирует!
Может несовместимость с каким-нибудь из подключенных модулей?

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ActnList, ToolWin, ActnMan, ActnCtrls,XPStyleActnCtrls, ExtCtrls, ComCtrls, jpeg, Grids, ValEdit;

Вот список модулей проекта.

← →
Романов Р.В. © (2004-03-24 15:31) [3]

AnsiUpperCase

← →
dik (2004-03-24 15:37) [4]

Спасибо! С AnsiUpperCase заработало!

Функция UpCase Найти похожие ветки