21

mag

Delphi è morto?

Posted by evilripper  Published in delphi, development

la morte di delphi
image created from:

http://sjconnor.wordpress.com/2007/01/31/the-right-profile/
http://www.buyromancostumes.com/spartan-helmet.html

Per molti sviluppatori delphi è ancora vivo, per me è morto dalla versione 7.0
Attualmente ci sono ancora tanti programmatori specializzati in Object Pascal
che ogni giorno producono migliaia di righe di codice, per lo più per mantenere vecchi applicativi
software.

Delphi un tempo era il migliore RAD per creare eseguibili per win32 senza bisogno di dll
ed era perfetto per sviluppare software gestionale. Nella mia zona ci sono grosse aziende che ancora
vendono e mantengono grossi software creati a fine anni ‘90.

La scelta dello strumento su cui sviluppare un applicativo è di fondamentale importanza, naturalmente prima
occorre vedere se risponde a tutte le esigenze principali, per es. su quale SO deve funzionare, quale database etc…


continue reading "Delphi è morto?"

no comment

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