Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 07.11.2010, 11:19   #11
dmitriegorovih
Ещё не
Форумчанин
 
Аватар для dmitriegorovih
 
Регистрация: 04.01.2010
Сообщений: 517
По умолчанию

банально но можно и так
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
s,s2:string;
begin
s2:='';
n:=0;
if s[1]=' ' then begin
for n:=2 to length(s) do begin
s2:=s2+s[n];
end;
end;
s:=s2;
end;
Воображение важнее, чем знания. (Albert Einstein)
dmitriegorovih вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
первый и последний символ в строке AndreyF Общие вопросы Delphi 10 03.08.2016 12:09
Первый символ в Edit-e artemavd Общие вопросы Delphi 2 24.09.2009 21:35
Как узнать какой символ является розделителем дроной части DarkEvil Общие вопросы Delphi 8 13.08.2009 08:05
Какими способами можно реализовать кэширование для прокси - сервера? Slavka8800 Работа с сетью в Delphi 0 02.06.2009 22:08
Как узнать какими права обладает уч.запись eks-s Win Api 4 18.02.2008 06:36