21

May

Is delphi dead?

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

For many developers Delphi is still alive, I think it’s dead to version 7.0
Currently there are still many programmers specialized in Object Pascal
and every day they produce thousands of lines of code to keep legacy applications (including me:-D).

Delphi was the best RAD to create executables for win32 without dll libraries
and it was perfect to develop management software. In my area there are big companies that sell and maintain huge software created in the late ’90s.

The choice of instrument to develop an application is of paramount importance, of course, first you need to know some things about it: OS, database, etc …


continue reading "Is delphi dead?"

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