Форум: "Основная";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];

Вниз

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]

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

---

← →
jack128   (2003-03-24 21:57) [6]

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

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

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

---

← →
icWasya   (2003-03-25 11:52) [7]

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

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.04.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c