Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Вниз

Помогите оптимизировать код   Найти похожие ветки 

← →
Романов Р.В. ©   (2004-04-28 11:42) [0]

function SetPrinters(var P: TPrintersAdress): Boolean;
begin
   with TSetingForm.Create(nil) do
   try
     Edit1.Text := P.Path[ptLJ];
     Edit2.Text := P.Path[ptDJ];
     Edit3.Text := P.Path[ptPJ];
     Result := ShowModal = mrOk;
     if Result then
     begin
       P.Path[ptLJ] := Trim(Edit1.Text);
       P.Path[ptDJ] := Trim(Edit2.Text);
       P.Path[ptPJ] := Trim(Edit3.Text);
       SetPrinterAdress(P);
     end;
   finally
     Free;
   end;
end;

...
 if not FileExists(ParamStr(1)) then Exit;
 i := AnalysisFile(ParamStr(1));
// Здесь нужно организовать такуюлогику
// Если принтер не задан, вывести диалог выбора принтера,
// Если в диалоге нажали ОК - проверить задали ли нужный принтер
// Если не задали, то вызвать диалог снова
// Если в диалоге нажали Отмена - выйти из программы.
 repeat
 until (Pa.Path[i] = "") and not SetPrinters(Pa);
 if Pa.Path[i] = "" then Exit;
 PrintDailog(Pa.Path[i], ParamStr(1), i = ptDJ)
end;

---

← →
Ozone ©   (2004-04-28 12:24) [1]

Я как понял тебе не соптимизировать надо, а написать готовый вариат...

---

← →
Goida ©   (2004-04-28 14:32) [2]

Да, действительно... :( Так бы и писал: Напишите программу, кому не лень и кто в потолок плюёт...

---

← →
Anatoly Podgoretsky ©   (2004-04-28 14:39) [3]

Код уже оптимальный

---

← →
Романов Р.В. ©   (2004-04-28 14:48) [4]

Разобрался уже/ Надо было так сделать
until (Pa.Path[i] <> "") or not SetPrinters(Pa);

---

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

Форум: "Основная";
Текущий архив: 2004.05.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.036 c