LINUX.ORG.RU

История изменений

Исправление record, (текущая версия) :

Возможно, я и сам чего-то не понял.
Я имел в виду перевод кода bash в код паскаля. Как в конвертерах c2pas, PtoC, например. Такой конвертер не нужен, если можно вызывать команды bash непосредственно в коде паскаля.

Ну, например, так:

...
var str: String;
     Exit_status: integer;
...
str:='find /media/sda'+inttostr(i)+'/series/ -type d | sort | uniq >> '
  +ExtractFilePath(Application.ExeName)+'series.dirs';
Exit_status:=fpsystem(str);
if Exit_status<>0
then 
 begin
    Showmessage('Error '+inttostr(Exit_status)+' with find');
 end;


Exit_status:=fpsystem('file "'+Form1.Memo1.Lines[0]+'"'+
 ' > ' + ExtractFilePath(Application.ExeName)+'file.output.data');
if Exit_status<>0
then begin
       Showmessage('Error '+inttostr(Exit_status)+' with file with the line '+
       Form1.Memo1.Lines[0]);
      end;


str:='LANG=en_US.utf8 gio info -a "metadata::*" "' + Form1.Memo1.Lines.Strings[0] + '" | sed "/metadata/d" | sed "
/uri:/d" | sed 1d ' +
' >> ' + ExtractFilePath(Application.ExeName)+'old.annotations.list ';
  Exit_status:=fpsystem(str);
  if Exit_status<>0
  then begin
         Showmessage('Error '+inttostr(Exit_status)+' with gio info about a memo. Exiting.');
         exit
       end;

Исправление record, :

Возможно, я и сам чего-то не понял.
Я имел в виду перевод кода bash в код паскаля. Как в конвертерах c2pas, PtoC, например. Такой конвертер не нужен, если можно вызывать команды bash непосредственно в коде паскаля.

Ну, например, так:

...
var str: String;
     Exit_status: integer;
...
str:='find /media/sda'+inttostr(i)+'/series/ -type d | sort | uniq >> '
  +ExtractFilePath(Application.ExeName)+'series.dirs';
Exit_status:=fpsystem(str);
if Exit_status<>0
then 
 begin
    Showmessage('Error '+inttostr(Exit_status)+' with find');
 end;


Exit_status:=fpsystem('file "'+Form1.Memo1.Lines[0]+'"'+
 ' > ' + ExtractFilePath(Application.ExeName)+'file.output.data');
if Exit_status<>0
then begin
       Showmessage('Error '+inttostr(Exit_status)+' with file with the line '+
       Form1.Memo1.Lines[0]);
      end;


str:='LANG=en_US.utf8 gio info -a "metadata::*" "' + Form1.Memo1.Lines.Strings[0] + '" | sed "/metadata/d" | sed "
/uri:/d" | sed 1d ' +
' >> ' + ExtractFilePath(Application.ExeName)+'old.annotations.list ';
  Exit_status:=fpsystem(str);
  if Exit_status<>0
  then begin
         Showmessage('Error '+inttostr(Exit_status)+' with gio info about a memo. Exiting.');
         exit
       end;

Исправление record, :

Возможно, я и сам чего-то не понял.
Я имел в виду перевод кода bash в код паскаля. Как в конвертерах c2pas, PtoC, например. Такой конвертер не нужен, если можно вызывать команды bash непосредственно в коде паскаля.

Ну, например, так:

...
var str: String;
     Exit_status: integer;
...
str:='find /media/sda'+inttostr(i)+'/series/ -type d | sort | uniq >> '
  +ExtractFilePath(Application.ExeName)+'series.dirs';
Exit_status:=fpsystem(str);
if Exit_status<>0
then 
 begin
    Showmessage('Error '+inttostr(Exit_status)+' with find');
 end;


Exit_status:=fpsystem('file "'+Form1.Memo1.Lines[0]+'"'+
 ' > ' + ExtractFilePath(Application.ExeName)+'file.output.data');
if Exit_status<>0
then begin
       Showmessage('Error '+inttostr(Exit_status)+' with file with the line '+
       Form1.Memo1.Lines[0]);
      end;

Исправление record, :

Возможно, я и сам чего-то не понял.
Я имел в виду перевод кода bash в код паскаля. Как в конвертерах c2pas, PtoC, например. Такой конвертер не нужен, если можно вызывать команды bash непосредственно в коде паскаля.

Ну, например, так:

...
var str: String;
     Exit_status: integer;
...
str:='find /media/sda'+inttostr(i)+'/series/ -type d | sort | uniq >> '
  +ExtractFilePath(Application.ExeName)+'series.dirs';
Exit_status:=fpsystem(str);
if Exit_status<>0
then 
 begin
    Showmessage('Error '+inttostr(Exit_status)+' with find');
 end;



Exit_status:=fpsystem('file "'+Form1.Memo1.Lines[0]+'"'+
 ' > ' + ExtractFilePath(Application.ExeName)+'file.output.data');
if Exit_status<>0
then begin
       Showmessage('Error '+inttostr(Exit_status)+' with file with the line '+
       Form1.Memo1.Lines[0]);
      end;

Исправление record, :

Возможно, я и сам чего-то не понял.
Я имел в виду перевод кода bash в код паскаля. Как в конвертерах c2pas, PtoC, например. Такой конвертер не нужен, если можно вызывать команды bash непосредственно в коде паскаля.

Ну, например, так:

...
var str: String;
     Exit_status: integer;
...
str:='find /media/sda'+inttostr(i)+'/series/ -type d | sort | uniq >> '
  +ExtractFilePath(Application.ExeName)+'series.dirs';
Exit_status:=fpsystem(str);
if Exit_status<>0
then 
 begin
    Showmessage('Error '+inttostr(Exit_status)+' with find');
 end;

Исправление record, :

Возможно, я и сам чего-то не понял.
Я имел в виду перевод кода bash в код паскаля. Как в конвертерах c2pas, PtoC, например. Такой конвертер не нужен, если можно вызывать команды bash непосредственно в коде паскаля.

Ну, например, так:

...
var str: String;
     Exit_status: integer;
...
str:='find /media/sda+inttostr(i)+'/series/ -type d | sort | uniq >> '
  +ExtractFilePath(Application.ExeName)+'series.dirs';
Exit_status:=fpsystem(str);
if Exit_status<>0
then 
 begin
    Showmessage('Error '+inttostr(Exit_status)+' with find');
 end;

Исправление record, :

Возможно, я и сам чего-то не понял.
Я имел в виду перевод кода bash в код паскаля. Как конвертеры c2pas, PtoC, например. Такой конвертер не нужен, если можно вызывать команды bash непосредственно в коде паскаля.

Ну, например, так:

...
var str: String;
     Exit_status: integer;
...
str:='find /media/sda+inttostr(i)+'/series/ -type d | sort | uniq >> '
  +ExtractFilePath(Application.ExeName)+'series.dirs';
Exit_status:=fpsystem(str);
if Exit_status<>0
then 
 begin
    Showmessage('Error '+inttostr(Exit_status)+' with find');
 end;

Исходная версия record, :

Возможно, я и сам чего-то не понял.
Я имел в виду перевод кода bash в код паскаля. Ну, как конвертеры c2pas, PtoC, например. Такой конвертер не нужен, если можно вызывать команды bash непосредственно в коде паскаля.

Ну, например, так:

...
var str: String;
     Exit_status: integer;
...
str:='find /media/sda+inttostr(i)+'/series/ -type d | sort | uniq >> '
  +ExtractFilePath(Application.ExeName)+'series.dirs';
Exit_status:=fpsystem(str);
if Exit_status<>0
then 
 begin
    Showmessage('Error '+inttostr(Exit_status)+' with find');
 end;