freepascal.ru

Код: Выделить всё

if [ "$lcl" = "qt" ]
 then
  rm interface.inc
  echo "{\$DEFINE QT}">interface.inc
fi

Код: Выделить всё

{$I interface.inc}

Код: Выделить всё

 {$IFDEF QT}
     FFileOpDlg.UpdateDlg;
    {$ELSE}
     synchronize(@FFileOpDlg.UpdateDlg);
    {$ENDIF}

Код: Выделить всё

rm interface.inc 
echo "{\$DEFINE $lcl}">interface.inc

Код: Выделить всё

#!/usr/bin/perl -w

`rm interface.inc;echo '{\$DEFINE QT\}'>interface.inc`;

@list=`ls *.pas`;

foreach (@list)
{


#удаляем левые символы и выставляем выходное расширение
$fon=$_;
$fon=~s/\n//;
$fon=$`;
$fon=~s/\r//;

`cp $fon $fon.bak`;

$fon=$`.".bak";

open( FIN,"<$fon");
open( FOUT,">$_");

while ($str=<FIN>)
{
$str=~s/\n//;
$str=$`;
$str=~s/\r//;
$str=$`;

#Включаем инклуд
$rez=$str=~m/\{\$H\+\}/;
if ($rez)
{
  $str.="\n\{\$I interface.inc\}\n"
}

 #поиск
 $rez=$str=~m/.*Synchronize\(.*\@/;#@*

#если строка найдена
if ($rez)
  {
    #Присваиваем переменым найденые значеня
    $func=$';
    $sync=$&;

    #Повторный поиск и отделяем мух от котлет
    $rez=$func=~m/\)\;/;
    if ($rez)
    {
      $func=$`;
      $str= "{\$IFDEF QT}\n\t$func;\n{\$ELSE}\n\t$sync$func);\n{\$ENDIF}\n";
    }
  }
    print FOUT "$str\n";
}
close(FIN);
close(FOUT);
}

Код: Выделить всё

while (I > 0) and not (FileName[I] in ['/', '\', ':']) do Dec(I);
Result := Copy(FileName, I + 1, MaxInt);

Код: Выделить всё

{ifdef linux}
while (I > 0) and not (FileName[I] in ['/', '\']) do Dec(I);
{else}
while (I > 0) and not (FileName[I] in ['/', '\', ':']) do Dec(I);
{endif}
Result := Copy(FileName, I + 1, MaxInt);