14

Nov

Stranezze di Delphi

Posted by evilripper  Published in delphi, development

A volte mi chiedo perche’ non programmavo piu’ in delphi…

Appena ho ripreso ad usarlo mi sono ricordato perche’!!!Le nuove versioni son talmente buggate che ad usarle fanno venire la pelle d’oca!! La versione migliore di delphi e’ stata la 7.0 , tutto il resto e’ stato fatto in maniera approssimativa riadattando codice stravecchio.

Fatevi questa immagine! :-D

no comment

13

Nov

Ole Office Automation Word Replace di una stringa [Delphi]

Posted by evilripper  Published in delphi, development

Visto che gli oggetti ole per poter manipolare materiale microsoft (che schifo) non sono molto intuitivi posto qui il codice una funzione che effettua un replace di una stringa in un documento word… per fare sta cavolata sara’ che non trovavo nulla con google, ma ci ho perso del tempo :-(

  1.  
  2. procedure TForm1.Button3Click(Sender: TObject);
  3.  
  4. var
  5.  
  6.   WordApp: Variant;
  7.  
  8. begin
  9.  
  10.   WordApp:=CreateOLEObject(‘Word.Application’);
  11.  
  12.   WordApp.Documents.Open(‘c:test.doc’);
  13.  
  14.   WordApp.Selection.Find.ClearFormatting;
  15.  
  16.   WordApp.Selection.Find.Text := ‘croce’;
  17.  
  18.   WordApp.Selection.Find.Replacement.Text := ‘testa’;
  19.  
  20.   WordApp.Selection.Find.Forward := True;
  21.  
  22.   WordApp.Selection.Find.MatchAllWordForms := False;
  23.  
  24.   WordApp.Selection.Find.MatchCase := False;
  25.  
  26.   WordApp.Selection.Find.MatchWildcards := False;
  27.  
  28.   WordApp.Selection.Find.MatchSoundsLike := False;
  29.  
  30.   WordApp.Selection.Find.MatchWholeWord := False;
  31.  
  32.   WordApp.Selection.Find.MatchFuzzy := False;
  33.  
  34.   WordApp.Selection.Find.Wrap := wdFindContinue;
  35.  
  36.   WordApp.Selection.Find.Format := False;
  37.  
  38.   WordApp.Selection.Find.Execute(Replace := wdReplaceAll);
  39.  
  40.   //WordApp.Selection.Find.Execute(wdReplaceAll);
  41.  
  42.   WordApp.Visible:=True;
  43.  
  44.   //WordApp.Documents.Save(’c:nuovo.doc’);
  45.  
  46.   WordApp.ActiveDocument.SaveAs(‘c:nuovo.doc’);
  47.  
  48. end;

L’ambiente di sviluppo non mi e’ stato d’aiuto in quanto il ctrl+spazio non elenca ne metodi ne funzioni!!!!
Questa funzione apre un file esistente in c:\ che si chiama test.doc e sostituisce la stringa ‘croce’ con ‘testa’ tutte le volte che la incontra in tutto il documento.Poi lo visualizza e lo salva in un file che crea lui che si chiama nuovo.doc sempre in c:

Fonti:

http://www.delphi3000.com/articles/article_3728.asp?SK=

4 comments