| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Пожалуйста помогите

Стелс ©   (2006-01-03 14:07:00) 

A:string; B:Char
Мне нужно взять один символ из строки?
при обращении b:=а[1] Delphi Даёт ошибку. Как её избежать?

---

SergP.   (2006-01-03 14:50:00) [1]

> Fay ©   (03.01.06 14:34) [5]


А... Ну да...

Мля....
Я даже и не подозревал что компилятор настолько "умный".


procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
b:char;
c:char;
d:char;
e:char;
begin
a:='';
b:=a[1];
c:=b;
d:=c;
c:='s';
e:=d;
ShowMessage(IntToStr(Ord(c)));   //работает
end;

--------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
a:string;
b:char;
c:char;
d:char;
e:char;
begin
a:='';
b:=a[1];
c:=b;
d:=c;
c:='s';
e:=d;
ShowMessage(IntToStr(Ord(e))); //А в єтом случае ругается на b:=a[1];
end;


---

Fay   (2006-01-03 14:36:00) [2]

2 SergP.   (03.01.06 14:28) [4]

Или просто

var
 a : string;
 b : char;
begin
{$O-}
 a := '';
 b := a[1];



---

Fay   (2006-01-03 14:34:00) [3]

2 SergP.   (03.01.06 14:28) [4]

var
a:string;
b:char;
begin
a:='';
b:=a[1];
ShowMessage(IntToStr(Ord(b)))

---

SergP.   (2006-01-03 14:28:00) [4]

> 1) Строка пустая


Кстати, как ни странно, но почему-то эксепшенов не возникает...


procedure TForm1.Button1Click(Sender: TObject);
var
 a:string;
 b:char;
begin
 a:='';
 b:=a[1];
end;


---

Fay   (2006-01-03 14:24:00) [5]

2 Стелс   (03.01.06 14:07)
объяснений может быть много
1) Строка пустая
2) b - pead-only свойство
3) космические лучи мешают

> Delphi Даёт ошибку
Какую?

---

Fay   (2006-01-03 14:24:00) [6]

pead-only
8))

---

SergP.   (2006-01-03 14:12:00) [7]

Никаких ошибок быть не должно...

---

Наверх