Получить часть строки

[_SERGEYX_]

Нужно получить часть строки до последнего пробела. Сделал так: перевернул строку, обрезал текст до первого пробела и снова перевернул.
Сижу и думаю, глупо это как-то. Как сделать проще? Уже башка не варит...

[BoozZzilla]

циклом перебрать все пробелы скидывая каждый в переменную и обрезать по окончании от этой переменной?
вроде как один цикл нуна вместо двух при перевертывании строки и обратно
тока не бейте дяденка

[_SERGEYX_]

Еще вот так написал... может лучше будет

function BezColor(aStr: string): string;
var i: Integer;
begin
  for i := Length(aStr) downto 1 do
    if aStr[i] = ' ' then
    begin
      Result := Copy(aStr, 1, i);
      Break;
    end;
end;

Просто этот код будет в калькулируемом поле таблицы и при больших объемах данных хочется, чтобы работал максимально быстро.

[Пепел Феникса]

function BezColor(aStr: string): string;
var i: Integer;
begin
  Result:='';
  for i := Length(aStr) downto 1 do
    if aStr[i] = ' ' then
    begin
      Result := Copy(aStr, 1, i);
      Break;
    end;
end;

вот теперь совсем хорошо

[_SERGEYX_]

Хе, как говорил Наполеон: "Лучшее сражение то, которое не состоялось". Лучше бы вообще без подобных кодов обойтись. Бестолковое начальство сразу толком задачу поставить не может, вот и приходится извращаться...

[psycho-coder]

Еще вот так написал... может лучше будет

Я думаю это оптимальный вариант (асм не в счет, да и неизвестно, даст ли он прирост скорости). Могу лишь посоветовать добавить const в определения aStr, это даст некоторый (очень мизерный) прирост в скорости, за счет того, что не будет выделяться память под изменения aStr.

[Пепел Феникса]

что не будет выделяться память под изменения aStr.

там помоему все равно не будет выделения, в Делфи ж умные строки(хотя мера этого ума мне неизвестна)
но вообще толковое замечание

[Sibedir]

получить часть строки до последнего пробела

Если невключительно, то

Result := Copy(aStr, 1, i-1);

И второе. А что должно получиться, если пробелов нет? В варианте от Пепела Феникса результат пустой. Но может быть, что нужно вернуть всю строку.

  for i := Length(aStr) downto 1 do
    if aStr[i] = ' ' then
    begin
      Result := Copy(aStr, 1, i-1);
      Exit;
    end;
  Result:=aStr;