Форум: "Начинающим";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];
ВнизПожалуйста помогите Найти похожие ветки
← →
Стелс (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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.045 c