Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.08;
Скачать: CL | DM;

Вниз

InputQuery и сохранение введённых в нём значений в файле   Найти похожие ветки 

 
max1991   (2006-09-16 12:27) [0]

Уважаемые мастера, подскажите пожалуйста, как можно сохранить в файл введённую строку из InputQuery.


 
Virgo_Style ©   (2006-09-16 12:36) [1]

File of text
TMemo и аналоги
TStream и аналоги

это по верхнему уровню, так сказать. А чем специфична строка именно из InputQuery?


 
PSPF2003 ©   (2006-09-16 12:44) [2]

var
 StringList : TStringList;
 Stoka : String;
begin
 if not InputQuery("Привед!!!", "Скучаеш?", Stoka) then Exit;
 StringList := TStringList.Create;
 StringList.Clear;
 StringList.Add(Stoka);
 StringList.SaveToFile("Вася");
 StringList.Free;
end;


 
max1991   (2006-09-16 12:51) [3]

Есть скрипт для переименования компьютера, т.к. до переименования порграмма должна выполнять установку нескольких программ, то переименовывать комп сразу не хотелось бы, но и ждать, когда проги установяться тоже не очень хочется. Поэтому хочу попробовать сделать так, чтобы перед выполнением всех действий программа спрашивала, как комп назвать после выполнения всех действий, запоминала его в фай, а скрипт, которому потом передаётся управление считывал имя из файла. А так как я слабо соображаю в делфи, то я нашёл исходник с использованием InputQuery и пытаюсь его прикрутить для своих нужд, но пока ни чего не получается.


 
max1991   (2006-09-16 12:58) [4]

в принципе я так и думал, что придётся использовать что то промежуточное для связи. Просто надеялся, что можно как то по простому решить проблему.

спасибо всем за помощь.


 
max1991   (2006-09-16 13:44) [5]

ешё вопрос, возможно ли сделать так, чтобы в InputQuery, в поле для ввода была строка по умолчанию? и как это будет выглядеть?


 
max1991   (2006-09-16 13:55) [6]

всё,я сам уже разобрался!



Страницы: 1 вся ветка

Текущий архив: 2006.10.08;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.046 c
5-1140419056
DimaBr
2006-02-20 10:04
2006.10.08
Закрытие узла.


3-1154515859
ttt_111
2006-08-02 14:50
2006.10.08
Поиск по подстроке


15-1158660878
cyborg
2006-09-19 14:14
2006.10.08
Мифы индейцев Южной Америки


2-1158865191
1______
2006-09-21 22:59
2006.10.08
ASCII читабельные символы


15-1158534370
SerJaNT
2006-09-18 03:06
2006.10.08
Windows 2000 мы Windows 2000





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский