| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
вопос
bondik © (2002-11-14 15:57:00)У меня есть вопрос какн аписать в Delphi аналог процедуры Insert, но процедурой Delete и функцией Copy не пользоваться.
BSD (2002-11-14 16:14:00) [1]Если ты о строках, то можно например так:
function MyInsert(Source,St:string;pos:integer):string;
var
i:integer;
begin
Result:="";
for i:=1 to pos-1 do Result:=Result+St[i];
for i:=1 to Length(Source) do Result:=Result+Source[i];
for i:=pos to Length(St) do Result:=Result+St[i];
end;
Только Range cheking сделай.
stone (2002-11-14 16:00:00) [2]а поконкретнее можно? Какой именно Insert?
| |
