| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

GTA 3 ©   (2002-07-29 17:20:00) 

subj

---

Skier   (2002-07-29 17:51:00) [1]

>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;


---

Jeer   (2002-07-29 17:46:00) [2]

F1

---

GTA 3   (2002-07-29 17:43:00) [3]

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

---

MBo   (2002-07-29 17:23:00) [4]

Copy

---

Наверх