[MSD]

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

Код:

procedure TForm1.Button1Click(Sender: TObject);
function CopyFromTo(S: String; C: Char; BeginPos, EndPos: Integer): String;
function NumPos(S: String; C: Char; Num: Integer): Integer;
var
  i, CurPos: Integer;
begin
  CurPos:=0;
  Result:=0;
  for i:=1 to Length(S) do
  begin
    if S[i] = C then
    Inc(CurPos);
    if CurPos = Num then
    begin
      Result:=i;
      Break;
    end;
  end;
end;
begin
  Result:=Copy(S, NumPos(S, C, BeginPos) + 1, NumPos(S, ',', EndPos) - NumPos(S, ',', BeginPos) - 1);
end;
var
  TmpStr: String;
begin
  AssignFile(Input, 'f.txt');
  Reset(Input);
  AssignFile(Output, 'result.txt');
  Rewrite(Output);
  while not Eof(Input) do
  begin
    Readln(Input, TmpStr);
    Writeln(Output, CopyFromTo(TmpStr, ',', 2, 3));
  end;
  CloseFile(Input);
  CloseFile(Output);
end;

Это только номер рейса. Со стоимостью сейчас сделаю.

он мне выдает только номер рейса, а чеков с верху нет.... , что то не так.ъ
И во втором получается тоже самое.....
Мне нужно чтобы получилось в первом....