freepascal.ru

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

Const
  DirName:string='c:\test\1\1\1';

var
  Form1: TForm1;

implementation

{$R *.lfm}

function DirToFileName (Dir:string):string;
Var  S:string;
     t:integer;
Begin
   S:=Dir;
   t:=Pos(S,'\');
While Pos(S,DirSepar)>0 do  S[Pos(S,DirSepar)]:='-';
result:=s+'.dof';
end;
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
  //
  Memo1.Lines.Add(DirName);
  Memo1.Lines.Add(DirToFileName(DirName));
end;


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

Pos('Что ищем', 'Где ищем')

xchgeaxeax писал(а):Наоборот надо задавать

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

Pos('Что ищем', 'Где ищем')

PosEx(What, X : String[; Start : Integer]) : Integer
Поиск строки в строке
Функция PosEx ищет строку What в строке X начиная с символа с номером Start (нумерация начинается с 1). Если строка найдена, то функция возвращает позицию, иначе возвращает 0.