[vigi]

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

procedure GetNum(TextS:string;StartPos:integer);
var
i:integer;
begin
for i:=StartPos to length(TextS) do
if TextS[i]<>' ' then sun:=sun+TextS[i] else break;
n:=StrToInt{Для делфи или val для паскаля}(sun);
end;
var
i:integer;
begin
Text:='Текст 452';
for i:=0 to 9 do
begin
n:=pos(IntToStr(i),Text);
if n>0 then
if Text[n-1]=' ' or Text[n-1]='' then
begin
GetNum(Text;n);
break;
end;
//в n будет число.
end;

if Text[n-1]=' ' or Text[n-1]='' then - тут ошибку дает!!!!

[The Shadow]

'' - это уже String
Надо #0
И надо

Код:

if (Text[n-1]=' ') or (Text[n-1]=#0) then

[vigi]

Сообщение от The Shadow

'' - это уже String
Надо #0
И надо

Код:

if (Text[n-1]=' ') or (Text[n-1]=#0) then

Так стартует только сам алгоритм не делает то что надо

Мужики сделайте плиз рабочий алгоритм на вот этом конкретном примере, а то я уже весь в запарках

ttt:='amur 11367 03-21 20-52-49.rcd';
надо из этой переменной записать в другую переменную rezz только вес (11367 в данном случае, но он межет содержать как 1 до n знаков) чтоб rezz:='11367')

очень надо!!!!!! Спасибо..

[vigi]

Всем огромное спасибо за помощь.
Вопрос снят нашел идеальное решение!!!
вот предлагаю может пригодится:

Код:

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;

Еще раз всем спасибо!!!!!!