Как сделать разбор строк?

[Вадим Буренков]

Еужно разобрать строку из файла типа:
"комманда-число"
или
"комманда-число-число.
Например программа должна строку
"TestCommand 10" разбирать получая саму комманду (String) и все цифры в строке(integer).
Как такое сделать?

[spamer]

Я чет особо не понял задания, но а если просто создать массив или множество из цифр и букв, а в цикле перебирать строку и сравнивать посимвольно там допустим до пробела, что получилось команда или число.

P.S.Объяснил канешно плохо, но все же.........

[Sazary]

Как-нибудь так (на примере эдита):

procedure TForm1.Button1Click(Sender: TObject);
var
str,command : string;
mas : array[1..100] of integer;
i,n,k,l : integer;

begin
str := Edit1.Text;
n := 0;
k := pos(' ',str);
command := copy(str,1,k-1);
repeat
 l := posex(' ',str,k+1);
 if l>0 then
  begin
  inc(n);
  mas[n] := StrToInt(copy(str,k,l-k));
  k := l;
  end;
until l<=0;
inc(n);
mas[n] := StrToInt(copy(str,k,length(str)));

ShowMessage('Command = '+command);
for i:=1 to n do
 ShowMessage('Number '+IntToStr(i)+' = '+IntToStr(mas[i]));

end;

[Вавел из ГМТУ]

Давайте сначала разберёмся со структурой фаила...

Команда-значение-знеачени-....-значение

Получается что после "Команды" может стоять несколько значений?
Куда далее пойдут эти значения?

На вскидку:

Var
    F : File;
    E : Byte;
    D : String;
    Count : Integer;

Begin
AssignFile(F, 'test.txt');

Reset(F, 1);
While Not Eof(F) Do
  Begin
    BlockRead(F, E, 1, Count);
    D := D + Chr(E);
    If E = 13 Then
      Begin
        ListBox1.Items.Add(D);
        // Сюда можно вставить цикл в котором идёт анализ строки
       // и отделения "Команды" от "Значений"
        D := '';
      End;
  End;
CloseFile(F);

Этот код построчно считает фаил (покрайней мере должен) и занесёт строки в LisBox..