|
#16
|
|||
|
|||
Цитата:
if Text[n-1]=' ' or Text[n-1]='' then - тут ошибку дает!!!! |
#17
|
||||
|
||||
'' - это уже String
Надо #0 И надо Код:
if (Text[n-1]=' ') or (Text[n-1]=#0) then Что делать, когда сломался комп: 1. Если вы юзер - делать ноги. 2. Если ремонтник - делать деньги. 3. Если вы программист - делать вид, что так было задумано. |
#18
|
|||
|
|||
Цитата:
Так стартует только сам алгоритм не делает то что надо Мужики сделайте плиз рабочий алгоритм на вот этом конкретном примере, а то я уже весь в запарках ttt:='amur 11367 03-21 20-52-49.rcd'; надо из этой переменной записать в другую переменную rezz только вес (11367 в данном случае, но он межет содержать как 1 до n знаков) чтоб rezz:='11367') очень надо!!!!!! Спасибо.. |
#19
|
|||
|
|||
Всем огромное спасибо за помощь.
Вопрос снят нашел идеальное решение!!! вот предлагаю может пригодится: Код:
procedure GetStrParam(s: String; ParamN: byte; var Param: String); var m,i,j: Integer; begin m:=0; j:= 0; Param:= ''; s:= Trim(s); for i:=1 to Length(s) do begin if s[i] = ' ' then begin if j=0 then begin Inc(m); j:=1; if m>ParamN then exit; end else j:=0; end else if (j=1) and (m=ParamN-1) then Param:= Param+s[i]; end; end; function GetSecondParam(s: String; var Res: Integer): boolean; var Param: String; begin GetStrParam(s,2,Param); Result:= TryStrToInt(Param,Res); end; procedure TForm1.BClick(Sender: TObject); var Rezz: Integer; begin if GetSecondParam('amur 11367 03-21 20-52-49.rcd',Rezz) then ShowMessage(IntToStr(Rezz)); end; Еще раз всем спасибо!!!!!! |