![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
работа со строкой [D7, Win2k, WinXP]
Jann © (2004-06-27 10:25:00)Уважаемые програмеры подскажите, как в строке типа String удалить определенное количество символов справа и слева. Только если можно с примером пожалуйста!!!
Jann (2004-06-27 10:45:00) [1]Ну спосибо други помогли, если я задам Вам позднее еще какие либо вопросы не откажите???
YurikGL (2004-06-27 10:45:00) [2]Выведет на экран 234
если a=2 b=4 т.е. удаляем с 1 по 2-й и с 4-го по пятый, то на экране будет только 3
YurikGL (2004-06-27 10:43:00) [3]Извини, ошибся. Вот весь пример
procedure TFormSborkiSnab.Button3Click(Sender: TObject);
var
st:string;
a,b:integer;
begin
st:='12345';
a:=1;
b:=5;
st:=copy(st,A+1,B-A-1);
showmessage(st);
end;
YurikGL (2004-06-27 10:39:00) [4]Если в строке N символов и тебе нужно удалить символы с 1 по A и с B до N, где A<B то
st:=copy(st,A+1,B-A+1)
SergP (2004-06-27 10:38:00) [5]
> [3] Jann © (27.06.04 10:35)
Примеры:
Удаляем в строке st 5 первых символов:
delete(st,1,5);
Удаляем 5 последних символов:
delete(st,length(st)-4,5);
Так понятно?
Jann (2004-06-27 10:35:00) [6]Друзья извените но данная тема была перемещена судя по всему "модератором" и по той ссылке не перейти туда, чтобы прочитать ответы. Поэтому прошу тех кто отвечал повторить плиз свои ответы. Неужели так тяжко привести примеры???
SergP (2004-06-27 10:34:00) [7]delete(stroka,first,kolichectvo);
YurikGL (2004-06-27 10:30:00) [8]Ты же уже спрашивал, по моему.
И ответили
st:=copy(st,какие-то параметры)