VPF::Преобразование одного типа в другой

Voldemar2004

Дата 1.8.2005, 16:36 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

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

Как заставить работать: это код кнопки -

Код


AnsiString Quote, Task;
Quote = '"';

char *FilePath, *Key;

FilePath = "c:\\program.exe";
Key  = "Key1";

Edit1->Text = Quote + FilePath + Quote + Key
Task = Edit1->Text;

system(Task);

Компилятор ругается и требует преобразования типов. Как преобразовать?

P.S. подключите:
#include <process.h> // требуется для system("....");

Просто в VB6 без проблем работает такая же фишка:
Shell(la_la_la) где la_la_la - "c:\program.exe" -key1

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

i_i
(';')
(V)

user posted image

maddoc

Дата 1.8.2005, 17:29 (ссылка)

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

Загрузка ...

Опытный

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

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

а в каком месте он ругается

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

"Безвыходных положений не бывает" (с) Камасутра

Vyacheslav

Дата 1.8.2005, 18:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 2124
Регистрация: 25.3.2002
Где: Москва

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

Ругается он скорее всего здесь

Код


Quote = '"'

Нужно

Код


Quote = "\"";

А лучше просто

Код


Edit1->Text =  AnsiQuotedStr(FilePath, '"')  + Key;

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

С уважением, Вячеслав Ермолаев

NiJazz

Дата 2.8.2005, 08:10 (ссылка)

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

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

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

Замени тот код на этот:

Код


AnsiString Quote, Task;
Quote = '"';
char *FilePath, *Key;
FilePath = "c:\\program.exe";
Key  = "Key1";
Edit1->Text = Quote + FilePath + Quote + Key;
Task = Edit1->Text;
system(Task.c_str());

chaos

Дата 2.8.2005, 09:08 (ссылка)

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

Загрузка ...

Серийный программист

Профиль
Группа: Завсегдатай
Сообщений: 2979
Регистрация: 7.7.2004
Где: Екатеринбург

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

немного придерусь))) только нафига Quote делать объектом, char'а достаточно будет

maddoc

Дата 2.8.2005, 10:19 (ссылка)

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

Загрузка ...

Опытный

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

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

я тоже хочу немного придраться, не понятно зачем нужно 2 раза двойные кавычки

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

"Безвыходных положений не бывает" (с) Камасутра

Voldemar2004

Дата 2.8.2005, 10:52 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

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

Цитата(Vyacheslav @ 1.8.2005, 18:04)

Ругается он скорее всего здесь

Да нет ребята, вот в этом месте:

Код


system(Task);

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

i_i
(';')
(V)

user posted image

maddoc

Дата 2.8.2005, 11:47 (ссылка)

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

Загрузка ...

Опытный

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

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

так правильно, эта ф-ция выполняет команду
Добавлено @ 11:47
а это TASK - свойство

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

"Безвыходных положений не бывает" (с) Камасутра

Voldemar2004

Дата 2.8.2005, 12:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

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

Спасибо, все работает.
NiJazz я еще чуть проще сделал:

Код


AnsiString Quote;    
Quote = '"';
    
char *FilePath, *Key;    

FilePath = "c:\\program.exe";    
Key  = "Key1";
    
Edit1->Text = Quote + FilePath + Quote + Key;    
system(Edit1->Text.c_str());

Все дело было, как я и догадывался - в преобразовании типов, т.е. в последней строке. В VB6 это выглядит так: a = CStr(Text1.Text).

Цитата(maddoc @ 2.8.2005, 10:19)

я тоже хочу немного придраться, не понятно зачем нужно 2 раза двойные кавычки

Почему 2 раза? Мне нужны просто символы кавычек.

Вот в этом случае кавычек то не будет:

Код


char *FilePath;
FilePath = "c:\\program.exe";
Edit1->Text = FilePath;

Поэтому я их добавил один раз, а не два.

Аналог на VB6:

Код


Option Explicit

Private Sub Command1_Click()
Dim a As String
a = "Program.exe"

Text1.Text = CStr(a) ' Text1.Text
Text1.Text = Chr(34) & CStr(a) & Chr(34) ' with "..Text1.Text.."

End Sub

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

i_i
(';')
(V)

user posted image

maddoc

Дата 2.8.2005, 12:33 (ссылка)

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

Загрузка ...

Опытный

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

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

просто мне было не понятно, получается что в едите у тебя выводится строка в кавычках?
ну если да, то понятно.

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

"Безвыходных положений не бывает" (с) Камасутра

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