Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Как программно скопировать с текст c Edit

Автор: MotoArhangel 17.3.2011, 11:08

Как программно скопировать с текст c Edit между кавычками, допустим

Цитата

"C:\Users\Moto\AppData\Local\Google\Chrome\Application\chrome.exe" --type=plugin --plugin-dir="C:\Users\Moto\AppData\Local\Google\Chrome\User Data\Default" --channel=5024.0459D200.783780726 /prefetch:4 --flash-broker=2948

Да и что бы не плодить темы:
Как полученный путь открыть в проводнике?

Автор: Mach3 17.3.2011, 11:18

Код


const
kav = '"'

var
Path,str: string;
pos1,pos2: integer;

begin
str:='тут твоя строка';
EndPos:=Length(str);
 while Pos < EndPos do
  begin
    pos1:= posex(kav,str,0);
    pos2:=posex(kav,str,pos1+length(kav);
    if pos2>pos1 then
    path:=copy(str,pos1,pos2-pos1);
    pos:=pos2+length(kav);
end;

Автор: MotoArhangel 17.3.2011, 13:23

Не пойму:

Код


pos1:= posex(kav,path,0);

Что есть posex?

Мне просто надо получить первую строку без ковычек

Цитата

C:\Users\Moto\AppData\Local\Google\Chrome\Application\chrome.exe

Автор: Mach3 17.3.2011, 13:30

PosEx - функция. ищет первое вхождение подстроки (в данном случае kav:='"') в строке (str) начиная с нулевого символа).
Вобщем,

Код


PosEx('всем', 'привет всем дельфистам', 0);

вернет 8. (номер первого вхождения слова всем)
Как-то так.. =))

Автор: MotoArhangel 17.3.2011, 13:32

Unit1.pas(1599): Undeclared identifier: 'posex'
Delphi7

Автор: Mach3 17.3.2011, 13:39

Добавь в uses StrUtils.

Код


procedure TForm1.Button1Click(Sender: TObject);
 const
kav = '"';

var
Path,str: string;
pos1,pos2: integer;

begin
    str:=edit1.Text;
    pos1:= posex(kav,str,0);
    pos2:=posex(kav,str,pos1+length(kav));
    if pos2>pos1 then begin
      path:=copy(str,pos1+length(kav),pos2-pos1-length(kav));
      edit2.Text:=path;
    end;
end;

end.

Автор: MotoArhangel 17.3.2011, 13:42

Спасибо)))
Хотя мне это уже не нужно, но для развития неплохо.