Форум: "Потрепаться";
Текущий архив: 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.009 c