[09:37:12] Experienced Trucker Adam has delivered Sport Equipment from LS Warehouse to Long Point Warehouse in 4 min 51 sec


MOD Integer
//----
//na wyjściu tablica String
//nick pobierany z wpisu użytkownika
//
//
//
//
//
//
//----

procedure CutLog(sNick: String, sLine)


var
    sTime,
    sRank,
    sLoad,
    sLoP,
    sUnP,
    sDur : String;

    iPosNick,
    iPosLoadA, iPosLoadB,
    iPosLoPA, iPosLoPB,

    iPos_To
    iPos_In
    iPos_Sec

: Integer;

begin


//wyszukiwanie:


//----Czas----

    sTime := Copy(sLine, 1, 10);
    Delete(sTime, 1, 1);
    Delete(sTime, 10, 1);


//----Rank----

    iPosNick := Pos(sLine, sNick);

    //założenie, że znak 1. ma indeks 1  -  TAK
    sRank := Copy(sLine, 12, iPosNick - 1); //ranga w zmiennej

//----Load----

    iPosLoadA := Pos(sLine, 'has delivered') + 14;   //początek łańcucha, gdzie ładunek
    iPosLoadB := Pos(sLine, 'from') - 1;           //koniec łańcucha, gdzie ładunek

    sLoad := Copy(sLine, iPosLoadA, iPosLoadb - iPosLoadA);  //ładunek w zmiennej


//----Punkt_ładunku----


    iPosLoPA := Pos(sLine, 'from') + 5;
    iPosLoPB := Pos(sLine, 'to') - 1;

    sLoP := Copy(sLine, iPosLoPA, iPosLoPB - iPosLoPA); //punkt ładunku w zmiennej

//----Punkt_rozładunku----


    iPos_in := Pos(sLine, 'in');

    sUnP := Copy(sLine, iPos_To + 3, iPos_In - iPos_To); //punkt rozładunku w zmiennej



//----Trwanie----

    iPos_Sec := Pos (sLine, ' sec');
    sDur := Copy(sLine, iPos_In + 2,iPos_Sec - iPos_In); //w zmiennej z ' min '
    sDur := AnsiReplaceText(sDur, ' min ', ':'); //czas sformatowany