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

Вниз

Гражжне! как FileNam-у передать значение переменной?   Найти похожие ветки 

 
kXmok   (2003-11-02 19:49) [0]

Гражжне! как FileNam-у передать значение переменной?

Пасибо!!!
Макс


 
Anatoly Podgoretsky ©   (2003-11-02 19:52) [1]

Можно с помощью присваивания, или нельзя.


 
Gero ©   (2003-11-02 20:06) [2]

Если хочешь получить ответ, корректно задавай вопрос.


 
kXmok ©   (2003-11-02 20:19) [3]

прошу просЧения за костноязычие.
Итак, что мне надо... есть переменная(q:string;). Надо, чтобы файл (текстовый) сохранился в виде: xx.txt? где xx - значение переменной.

если я опять непонятно написал - не пинайтесь - я только 2 недели в Delphi сижу!


 
Palladin ©   (2003-11-02 22:15) [4]

чет ты не с того начал


 
wnew ©   (2003-11-02 22:16) [5]


procedure SaveMyFile(const q: String);
var myFile: TextFile;
begin
AssignFile(myFile, q+".txt");
Rewrite(myFile);
try
Writeln(myFile,"Bla-Bla-Bla");
finally
CloseFile(myFile);
end;
end;

SaveMyFile("xx");


 
kXmok ©   (2003-11-04 00:20) [6]

Спасибо WNEW. В Твоем коде полностью не разобрался многое мне ышшо неизвестно. Пришлось "сообразить" код попроще:


procedure TForm1.SaveButtonClick(Sender: TObject);
var
q:string;
begin
if MainMemo.Lines.Count<>0 then
q := MainMemo.Lines.Strings[0];
begin
MainMemo.Lines.SaveToFile(q +".txt");
end;
end;


осталось написать функцию проверки символов в названии файла, а то mustdie иногда плюется.


 
kXmok ©   (2003-11-04 00:22) [7]

Всем спасибо!!!
Вопросов (пока что) больше нет!

Удачи!!!


 
Думкин ©   (2003-11-04 05:20) [8]

Удалено модератором


 
kXmok ©   (2003-11-04 21:51) [9]

Удалено модератором


 
kXmok ©   (2003-11-04 21:57) [10]

Удалено модератором



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

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

Наверх




Память: 0.48 MB
Время: 0.039 c
3-41033
Andrey V.
2003-10-15 08:47
2003.11.13
Туманный вопрос про дбгрид


1-41464
E_v_g_e_n_i_y
2003-10-29 08:55
2003.11.13
Операции с файлами


1-41384
Zilog
2003-10-30 10:45
2003.11.13
Pascal 7.0 Есть указатель на некую функцию. Требуется запустить


1-41711
MaG
2003-11-03 19:16
2003.11.13
HTML


3-40814
Feofan
2003-10-22 02:32
2003.11.13
SQL запросы