Чтение из строки параметры чисел (парсер)

[rdama]

Дай пример строки которую ты парсишь...

[VintProg]

s := 'WEAPON 50 COEF 1.5 DIST 500'
Read_Parametr_Str(s,1)

[rdama]

function Parse(Str:string):string;
var I,J:Integer;
Tmp:string;
begin
I:=0;
for J:= 0 to Length(Str)-1 do
begin
Str:=copy(Str,I,length(Str));
if AnsiPos(' ',Str)=0 then break;
for I:= 1 to Length(Str) do
begin
if IsCharAlpha(str[I]) = True then
begin
if str[I] ='.' then Tmp:=Tmp+str[I];
if Trim(Tmp)<>'' then break;
Continue;
end
else
begin
Tmp:=Tmp+Trim(str[I]);
end;
end;
if Result='' then Result:=Concat(Result,Tmp)
else
Result:=Concat(Result,',',Tmp);
Tmp:='';
end;
end;

[Пепел Феникса]

rdama, используйте тэг CODE(кнопка )

тогда сохранятся и отступы все, и подстветка еще будет