Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.22;
Скачать: CL | DM;

Вниз

Пожалуйста помогите   Найти похожие ветки 

 
Стелс   (2006-01-03 14:07) [0]

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


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

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


 
Fay ©   (2006-01-03 14:24) [2]

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

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


 
Fay ©   (2006-01-03 14:24) [3]

pead-only
8))


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


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


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


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


 
Fay ©   (2006-01-03 14:34) [5]

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

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


 
Fay ©   (2006-01-03 14:36) [6]

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

Или просто

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



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


> 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;



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

Текущий архив: 2006.01.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.048 c
14-1133813568
Rouse_
2005-12-05 23:12
2006.01.22
Новогодний MMP (Совместный)


2-1136144676
KvORubin
2006-01-01 22:44
2006.01.22
Как запретить и перехватить выход из программы верхним крестиком?


2-1136539055
mss
2006-01-06 12:17
2006.01.22
Сколько файлов


1-1134992575
Asail
2005-12-19 14:42
2006.01.22
Как отследить время простоя моего приложения?


14-1136060171
Piter
2005-12-31 23:16
2006.01.22
Всех с наступающим 2006 ГОДОМ!!!