[san7667]

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

[xchgeaxeax]

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

Код:

1 2 3 4 5 6 7 8 9

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10

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;

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

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

Код:

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