работа со строкой

← →
Jann © (2004-06-27 10:25) [0]

Уважаемые програмеры подскажите, как в строке типа String удалить определенное количество символов справа и слева. Только если можно с примером пожалуйста!!!

← →
YurikGL © (2004-06-27 10:30) [1]

Ты же уже спрашивал, по моему.
И ответили

st:=copy(st,какие-то параметры)

← →
SergP © (2004-06-27 10:34) [2]

delete(stroka,first,kolichectvo);

← →
Jann © (2004-06-27 10:35) [3]

Друзья извените но данная тема была перемещена судя по всему "модератором" и по той ссылке не перейти туда, чтобы прочитать ответы. Поэтому прошу тех кто отвечал повторить плиз свои ответы. Неужели так тяжко привести примеры???

← →
SergP © (2004-06-27 10:38) [4]

> [3] Jann © (27.06.04 10:35)

Примеры:

Удаляем в строке st 5 первых символов:
delete(st,1,5);

Удаляем 5 последних символов:
delete(st,length(st)-4,5);

Так понятно?

← →
YurikGL © (2004-06-27 10:39) [5]

Если в строке N символов и тебе нужно удалить символы с 1 по A и с B до N, где A<B то

st:=copy(st,A+1,B-A+1)

Извини, ошибся. Вот весь пример

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;

Ну спосибо други помогли, если я задам Вам позднее еще какие либо вопросы не откажите???

Выведет на экран 234

если a=2 b=4 т.е. удаляем с 1 по 2-й и с 4-го по пятый, то на экране будет только 3

работа со строкой Найти похожие ветки