Работа со строками

[Eugene_Stoun]

Всем Доброго Дня и Хорошего настроения! Вопрос следующий есть срока, из нее надо скопировать часть символов до определенного символа, а остальное удалить.
Вот пример

 var
  tmp: string;
  main: string;
  n: word;
begin
  main:= 'БЛ2365897^ku.tif';
  // найти позицию нужного символа (первого встреченного)
  n:= pos('^',main);
  // скопировать строку от начала до символа, стоящего перед найденным
  tmp:= copy(main,1,n-1);
  // удалить часть строки от начала до найденного символа (включая найденный символ)
  Delete(main,1,n);
end;

Только мне нужно скопировать начальную часть строки до символа "^", а остальное удалить. А не так как в этом коде удаляется начало строки.

[Simply-Art]

Печально что вы так слабо разбираетесь, не проще ли просто удалить часть строки?

 var
  main: string;
begin
  main:= 'БЛ2365897^ku.tif';
  // удалить часть строки от начала до найденного символа (включая найденный символ)
  Delete(main,pos('^',main),length(main));
end.

[Vad33]

Может человеку переменная tmp зачем то нужна, а потом еще
чего то будет копировать до удаления, а строка то уже и обрезана...

[Simply-Art]

Посмотрите на код, и вам станет ясно что по вышеприведенному коду Eugene_Stoun, в переменную tmp копировалась удаляемая часть строки. А по его же словам ему нужна толька часть строки до символа, и если бы копировали, то tmp = main получили.

[Eugene_Stoun]

Спасибо, вам огромное разобрался