MOO123
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RomanTim
пасибо за стринг, вышло все таки. Но проблема осталась. Короче что бы вошли в курс дела.
procedure TForm1.Button1Click(Sender: TObject);
begin
sl := TStringList.Create;
sl.LoadFromFile('111.txt');
sl[1] := ''+Edit2.Text+'\'+Edit1.Text+'';
sl.SaveToFile('111.txt');
sl.Free;
end;
const
SELDIRHELP = 1000;
procedure TForm1.Button2Click(Sender: TObject);
var
Dir: string;
begin
Dir := ExtractFilePath(ParamStr(0)) + '1';
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Edit2.Text := Dir;
end;
Где edit2 это выбор директории. Но при выборе директории, всё действо переходит в эту папку, а в ней 111.txt нету. Как сделать так чтобы записывался только путь, НО не все действо переходило туда. |
.
