Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Помогите с SaveDialog [D7, WinXP]

ko © (2004-07-15 19:19:00)
Есть часть кода, где с помощью stext находится s1. Как в стандартном D7 диалоге поменять имя файла именно внутри этого кода(строчка SaveDialog1.FileName:=’ сохранение’+s1; не работает):

if SaveDialog1.Execute then
begin
if FindFirst(SaveDialog1.InitialDir+'сохранение*.sav', faAnyFile, F)=0 then
begin
stext(f,s1,0);
while FindNext(F) = 0 do
begin
stext(f,s1,1);
end;
end;
FindClose(F);
SaveDialog1.FileName:=’ сохранение’+s1;
memo2.Lines.SaveToFile(SaveDialog1.FileName+'.sav');

Sun bittern (2004-07-15 22:46:00) [1]
Может по другому пути?
Давай не будем сканить каталог.

var
I: Integer;
S: String;
begin
I := 0;
while FileExestis(S) = true do
begin
S := Рабочий каталог + Мой Файл + IntToStr(I) + расширение;
Inc(I);
end;
end;

S искомая строка.

Алхимик © (15.07.04 22:25) [5]
И я непонял. А так же какого типа s1 и кто такой stext

Алхимик (2004-07-15 22:25:00) [2]

> [4] Гаврила © (15.07.04 22:22)

Три раза прочитал, так и не понял что хотел автор.
Занесу ка я тебя в свой список телепатов...
Там уже солидная компания собралась.

Гаврила (2004-07-15 22:22:00) [3]
я кажется понял, что ты хочешь
присваивать SaveDialog1.FileName надо передвызовом его Execute

ko (2004-07-15 22:05:00) [4]
Суть в чем: функция stext “сканирует ” каталог и возвращает значение s1 равное номеру нового файла. Например как в Word’е: не хочется вводить имя файла, прога автоматически предлагает имя (сохранение1, сохранение2,…). С этим проблем нет. Вообщем получаю я строку “сохранение№” в коде:

if FindFirst(SaveDialog1.InitialDir+' сохранение *.sav', faAnyFile, F)=0 then
begin
stext(f,s1,0);
while FindNext(F) = 0 do
begin
stext(f,s1,1);
end;
end;
FindClose(F);

Который и выполняется только в :

if SaveDialog1.Execute then
begin

//здесь

end;

Вот и нужно мне как то

SaveDialog1.FileName:=’ сохранение’+s1; т.е. чтобы при открытии диалога писало: “ сохранение№”, а оно не работает, если помещено
if SaveDialog1.Execute then
begin

//здесь

end;

Пробовал делать выноску GoTo—не работает.
Делал и такое:
if SaveDialog1.Execute then
begin

SaveDialog1.FileName:=’ Да выведи ты эту надпись!!!’
end;
Подскажите, пожалуйста, как мне выполнить последний пример!!!

Sun bittern (2004-07-15 20:29:00) [5]
Гаврила © (15.07.04 19:40) [1]

Может проблема в типах s1 <- ???

Гаврила (2004-07-15 19:40:00) [6]
memo2.Lines.SaveToFile(’сохранение’+s1+'.sav');
???

или я что-то не понял
или ты криво сформулировал вопрос

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »