Тема: вопрос по чтению текста
Показать сообщение отдельно
  #2  
Старый 23.06.2008, 20:55
lmikle lmikle вне форума
Модератор
  
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию
Код:
var
  S : String;
begin
  S := copy(Edit1.Text,1,Pos(';',Edit1.Text)-1);
end;

годится?
Ответить с цитированием