Строка(копирование)

[Reglament_]

//Закрыта тема!

[phomm]

Свойство Seltext, если данная строка выделена курсором.
Функция copy если просто, надо указать строку откуда брать, начальный индекс символа в строке (если кроме красного ничего не меняется то это постоянное число) и длину копируемой подстроки, длина, думаю всегда одинакова, если нет, то нужны дополнительные ухищрения, типа поиска пробелов и т.п. - тогда смотреть ещё в сторону функции Pos

[chertovich]

var
  S: string;
begin
  S := Edit1.Text;
  Delete(S, 1, Pos(' ', S);
  S := Copy(S, 1, Pos(' ', S) - 1);
end;

Reglament, с таким программированием вы далеко не уйдете

[Reglament_]

Сообщение от phomm

Свойство Seltext, если данная строка выделена курсором.
Функция copy если просто, надо указать строку откуда брать, начальный индекс символа в строке (если кроме красного ничего не меняется то это постоянное число) и длину копируемой подстроки, длина, думаю всегда одинакова, если нет, то нужны дополнительные ухищрения, типа поиска пробелов и т.п. - тогда смотреть ещё в сторону функции Pos

Ты прав, но я уже перепробовал многое бздец. Да и возможно 1 строка тоже меняться будет в некоторых случаях, но пока что нет. А Свойство Seltext неподходит ни как.

[Reglament_]

Сообщение от chertovich

var
  S: string;
begin
  S := Edit1.Text;
  Delete(S, 1, Pos(' ', S);
  S := Copy(S, 1, Pos(' ', S) - 1);
end;

Reglament, с таким программированием вы далеко не уйдете

Спс за код!
Я давно знаю, что далеко не уйду!