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

Вниз

Очень маленький и глупый вопрос   Найти похожие ветки 

 
msoftware ©   (2003-02-18 11:17) [0]

Как например в Edit1 узнать третью букву????


 
alxx ©   (2003-02-18 11:18) [1]

If Length(Edit1.Text)>2 Then c:=Edit1.Text[3];


 
Романов Р.В. ©   (2003-02-18 11:23) [2]

Это не ты на прошлой неделе спрашивал как узнать вторую букву, а на позапрошлой как узнать первую? Сколько еще букв в твоем Edit?


 
alxx ©   (2003-02-18 11:26) [3]

Третья буква в "Edit1" = "i"


 
Chubais ©   (2003-02-18 11:28) [4]


> Романов Р.В. © (18.02.03 11:23)

точна!


 
xyz ©   (2003-02-18 12:05) [5]

ShowMessage(Edit1.text[3]);


 
-=Sergeante=- ©   (2003-02-18 13:18) [6]

TGetChar=class(TObject)
private
FText: String;
published
function GetChar:String; virtual;
public
constructor Create(Value: String);
property Char: string read GetChar;
end;

TGetChar3=class(TGetChar)
public
function GetChar: string; override;
end;

implementation

constructor TGetChar.Create(Value: String);
begin
FText:=Value;
end;

function TGetChar.GetChar: String;
begin
//
end;

{ TGetChar3 }

function TGetChar3.GetChar: string;
begin
result := FText[3];
end;

end.


 
Palladin ©   (2003-02-18 13:38) [7]


> -=Sergeante=- © (18.02.03 13:18)

а где поддержка COM+,ActiveX и иже с ними!!???


 
Юров Владимир ©   (2003-02-18 13:40) [8]


> Palladin © (18.02.03 13:38)

Вроде достаточно. Просто, компактно и наглядно :)



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

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

Наверх




Память: 0.48 MB
Время: 0.019 c
14-17283
Труп Васи Доброго
2003-02-19 18:22
2003.03.06
Virtual Drive


4-17465
ers
2003-01-17 09:28
2003.03.06
Как запустить в отладочном режиме?


1-17128
Builder
2003-02-22 15:41
2003.03.06
INPUT type=file


14-17345
Дмитрий К.К.
2003-02-18 06:21
2003.03.06
Именинники 18 февраля


1-17079
munch
2003-02-25 18:35
2003.03.06
Получение значений из строки