Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Вниз

Как узнать четыре последних символа в Edit1?   Найти похожие ветки 

← →
GTA 3   (2002-07-29 17:20) [0]

subj

---

← →
MBo   (2002-07-29 17:23) [1]

Copy

---

← →
GTA 3   (2002-07-29 17:43) [2]

А можно конкретнее? :)

---

← →
Jeer   (2002-07-29 17:46) [3]

F1

---

← →
Skier   (2002-07-29 17:51) [4]

>GTA 3


procedure TForm1.Button1Click(Sender: TObject);

function GetLastFourChars(const AEdit : TEdit) : String;
begin
Result := EmptyStr;
if (AEdit = nil) or (Length(AEdit.Text) < 4) then Exit;
Result := Copy(AEdit.Text, Length(AEdit.Text) - 3, 4);
end; //GetLastFourChars

begin
WriteLn(GetLastFourChars(Edit1));
end;


---

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

Форум: "Основная";
Текущий архив: 2002.08.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c