Error

← →
Женя (2003-03-24 20:10) [0]

Не понимаю ошибку, если есть соображения поделитесь.
[Error] Unit1.pas(63): Left side cannot be assigned to

var i,j:integer;
begin
for i:=0 to ListBox1.Items.Count -1 do
for j:=1 to Length(ListBox1.Items[i]) do
if UpperCase(ListBox1.Items[i][j]) <> ListBox1.Items[i][j] then
ListBox2.Items[i][j]:=[Error]UpperCase(ListBox1.Items[i][j])
else
ListBox2.Items[i][j]:=LowerCase(ListBox1.Items[i][j]);

← →
jack128 © (2003-03-24 20:18) [1]

а что такое ListBox1.Items[i][j] ??

← →
Женя (2003-03-24 20:26) [2]

i-ой строки j-ый символ

← →
Zz_ (2003-03-24 20:32) [3]

UpperCase(ListBox1.Items[i] ) [j]

← →
Женя (2003-03-24 20:40) [4]

Задача в том что нужно пройтись по каждому символу строки и проверить если он маленький то превратить в большой и наоборот.
?????

← →
Anatoly Podgoretsky © (2003-03-24 20:46) [5]

Сдево у тебя свойство, а не строка, поэтому ту не можешь так обращаться. Скопируй сначала в строку, затем цикл, а потом обратная запись.

побумай, что такое свойство? Это пара функция/процедура - Get/Set(точнее методы,но в в данном случае это не важно)
допустим у тебя есть функция

function GetString : string;
begin
Result := "string";
end;

Ты можешь написать GetString[5] := "z"; ???

var i,j:integer; S:String; begin for i:=0 to ListBox1.Items.Count -1 do begin S:=ListBox1.Items[i]; for j:=1 to Length(S) do if UpperCase(S[j]) <> S[j] then S[j]:=UpperCase(S[j]) [1] else S[j]:=LowerCase(S[j]) [1]; ListBox1.Items[i]:=S; end;

----
см описание
function Upercase(const S:String):String;
--
поэтому S[j]:=Upercase(S[j]) не сработает, поскольку слева - Char а справа String

Error Найти похожие ветки