Помогите с SaveDialog

← →
ko (2004-07-15 19:19) [0]

Есть часть кода, где с помощью 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");

← →
Гаврила © (2004-07-15 19:40) [1]

memo2.Lines.SaveToFile(’сохранение’+s1+".sav");
???

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

← →
Sun bittern © (2004-07-15 20:29) [2]

Гаврила © (15.07.04 19:40) [1]

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

← →
ko (2004-07-15 22:05) [3]

Суть в чем: функция 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;
Подскажите, пожалуйста, как мне выполнить последний пример!!!

← →
Гаврила © (2004-07-15 22:22) [4]

я кажется понял, что ты хочешь
присваивать SaveDialog1.FileName надо перед вызовом его Execute

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

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

Может по другому пути?
Давай не будем сканить каталог.

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

Помогите с SaveDialog Найти похожие ветки