VPF::Как программно скопировать с текст c Edit

MotoArhangel

Дата 17.3.2011, 11:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2011

Репутация: нет
Всего: нет

Как программно скопировать с текст 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 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 158
Регистрация: 26.11.2005

Репутация: нет
Всего: 2

Код


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;

Это сообщение отредактировал(а) Mach3 - 17.3.2011, 13:33

--------------------

Век живи - век учись...

MotoArhangel

Дата 17.3.2011, 13:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2011

Репутация: нет
Всего: нет

Не пойму:

Код


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

Что есть posex?

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

Цитата

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

Это сообщение отредактировал(а) MotoArhangel - 17.3.2011, 13:27

Mach3

Дата 17.3.2011, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 158
Регистрация: 26.11.2005

Репутация: нет
Всего: 2

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

Код


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

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

--------------------

Век живи - век учись...

MotoArhangel

Дата 17.3.2011, 13:32 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2011

Репутация: нет
Всего: нет

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

Mach3

Дата 17.3.2011, 13:39 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 158
Регистрация: 26.11.2005

Репутация: нет
Всего: 2

Добавь в 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.

Это сообщение отредактировал(а) Mach3 - 17.3.2011, 13:43

--------------------

Век живи - век учись...

MotoArhangel

Дата 17.3.2011, 13:42 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 13.3.2011

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) MotoArhangel - 17.3.2011, 13:57

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »