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

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

работа со строкой [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,какие-то параметры)


Наверх

Титульная страница Поиск, карта сайта Написать письмо