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