Cum de a deschide un cuvânt gata în Delphi
Vă rugăm să ajute încă o dată.
Am introdus codul: # XA0;
Procedura TForm1.RadioButton1Click (Expeditor: TObject);
# XA0; var Word: variantă;
începe
dacă RadioButton1.Checked = true atunci
Cuvânt: = CreateOleObject ( "Word.Application");
Word.Documents.Open ( "L: \ DIPLOMA \ test.doc");
se încheie;
și el dă de pornire nu poate găsi fișierul. Nu înțeleg ce sa întâmplat
De ce este tu, această programare?
Procedura DoOpenWordDoc (FileName: string);
var
# XA0; w: Variant;
începe
# XA0; w: = CreateOleObject ( "Word.Application"); # XA0; // # XA0;<- сюда бряк и смотреть, что в FN пришло
# XA0; w.Documents.Open (FileName);
se încheie;
Procedura TForm1.RadioButton1Click (Expeditor: TObject);
începe
# XA0; dacă RadioButton1.Checked atunci
# XA0; # XA0, cu TOpenDialog.Create (zero) do
# XA0; # XA0; încercați
# XA0; # XA0; # XA0; dacă Executare atunci
# XA0; # XA0; # XA0; # XA0; DoOpenWordDoc (FileName);
# XA0; # XA0; în sfârșit
# XA0; # XA0; # XA0; gratuit;
# XA0; # XA0; end;
se încheie;
> "L: \ DIPLOMA \ test.doc"
> Proiect \ absolvire DIPLOMĂ externe Hard \
nu a considerat acest dosar
> Nu se poate găsi fișierul
în Delphi acolo fileexists funcție, care ar fi frumos să utilizați pentru a încerca să deschidă, și există tot felul de gunoi de dialog, tastați TOpenDialog, care vă permit să selectați fișierul, apoi generează automat o cale spre ea.
și problema identității baieti rai are sens să se gândească.
Memorie: 0.72 MB
Timp: 0,02 c