[san7667]

Добрый день!
в edit есть текст: 0013 Отдел
Как считать из edit весь текст до первого пробела, в данном случае только 0013 ?

[xchgeaxeax]

А прочитать весь текст и отрезать все после первого пробела - религия не позволяет?

Код:

var
  S: String;
  I: Integer;
begin
  S := Edit1.Text;
  I := Pos(' ', S);
  if I <> 0 then Delete(S, I, Length(S) - I + 1);
  Label1.Caption := S;
end;

[lmikle]

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

А прочитать весь текст и отрезать все после первого пробела - религия не позволяет?

Или скопировать...

Код:

var
  s: String;
  idx: Integer;
begin
  Idx := Pos(' ', Edit1.Text);
  If  Idx = 0 
    Then s := Edit1.Text
    Else s := Copy(Edit1.Text,1,Idx-1);
  Label1.Caption := S;
end;

[Страдалецъ]

Для свежих версий есть расширение строкового типа методами обработки текста и там можно написать так:

Код:

ShowMessage(String(Edit1.Text).Split([' '])[0])