home *** CD-ROM | disk | FTP | other *** search
/ PC World 2005 April / PCWorld_2005-04_cd.bin / software / temacd / godfather / TGF_069.exe / $INSTDIR / Scripts / PasteTracks.scl < prev    next >
Encoding:
Text File  |  2005-02-06  |  882 b   |  42 lines
  1. Program PasteTracks;
  2. var
  3.   i, iPos: integer;
  4.   sTmp, sText: string;
  5.   slTmp: TStringList;
  6.  
  7. begin
  8.  
  9.   slTmp := TStringList.Create;
  10.   try
  11.  
  12.     sText := Trim( sys_ClipboardPaste );
  13.  
  14.     if sText =  '' then exit;
  15.  
  16.     if sys_MessageDlg( 'Paste ?' + #13#10 + #13#10 + sText , 3, 0 ) = 0 then begin
  17.  
  18.        on_clearTracks;
  19.        slTmp.Text := sText;
  20.  
  21.        for i := 0 to slTmp.Count - 1 do begin
  22.            sTmp := slTmp.Strings[ i ];
  23.            iPos := Pos( '.', sTmp );
  24.            if iPos > 0 then begin
  25.               if StrToIntDef( Copy( sTmp, 1, iPos - 1 ), -1 ) <> - 1 then sTmp := Copy( sTmp, iPos + 1, 99999 );
  26.            end;
  27.            sTmp := Trim( sTmp );
  28.            if sTmp <> '' then begin
  29.               on_addTrack( IntToStr( i + 1 ), sTmp, '', '' );
  30.            end;
  31.        end;
  32.     end;
  33.   finally
  34.     slTmp.Free;
  35.   end;
  36.  
  37.  
  38. end.
  39.  
  40.  
  41.  
  42.