PDA

View Full Version : Ditemi con che linguaggio è scritto questo programma?

3vi
08-10-2007, 21:19
object frmDogane: TfrmDogane
Left = 333
Top = 192
Width = 670
Height = 632
Caption = 'Cerca dogane\isole'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object lblDescrizione: TLabel
Left = 40
Top = 16
Width = 463
Height = 16
Caption =
PtX: TEdit
Left = 64
Top = 64
Width = 41
Height = 21
MaxLength = 3
TabOrder = 0
Text = 'txtX'
end
object txtY: TEdit
Left = 144
Top = 64
Width = 41
Height = 21
MaxLength = 3
TabOrder = 1
Text = 'txtY'
end
object btnSearch: TButton
Left = 40
Top = 104
Width = 75
Height = 25
Caption = 'Cerca'
TabOrder = 2
OnClick = btnSearchClick
end
object btnExit: TButton
Left = 576
Top = 560
Width = 75
Height = 25
Caption = 'Exit'
TabOrder = 3
OnClick = btnExitClick
end
object txtRes: TListBox
Left = 232
Top = 64
Width = 369
Height = 313
Color = clMenu
Font.Charset = ANSI_CHARSET
Font.Color = clInfoText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 15
ParentFont = False
TabOrder = 4
end
object RadioGroup1: TRadioGroup
Left = 48
Top = 288
Width = 137
Height = 105
Caption = ' Coordinate da stampare:'
ItemIndex = 0
Items.Strings = (
'10 '
'20'
'30'
'40'
'50')
TabOrder = 5
end
object Stamp: TRadioGroup
Left = 32
Top = 160
Width = 185
Height = 105
Caption = 'Visualizza'
ItemIndex = 0
Items.Strings = (
'Dogane Amiche (MoD e Alleati)'
'Isole del tesoro'
'Tutte le isole')
TabOrder = 6
end
object Button1: TButton
Left = 312
Top = 504
Width = 75
Height = 25
Caption = 'Aggiorna'
TabOrder = 7
Visible = False
OnClick = Button1Click
end
object Edit1: TEdit
Left = 40
Top = 496
Width = 121
Height = 21
TabOrder = 8
Visible = False
end
object Button2: TButton
Left = 312
Top = 552
Width = 75
Height = 25
Caption = 'Elimina'
TabOrder = 9
Visible = False
OnClick = Button2Click
end
object CheckBox1: TCheckBox
Left = 8
Top = 432
Width = 121
Height = 17
Caption = 'Aggiorna il DataBase'
TabOrder = 10
OnClick = CheckBox1Click
end
end


Praticamente questo è una parte di un programma funzionante...Io devo modifcare alcune parti di questo codice, sostituire nomi per la maggior parte, ma se anche io non faccio niente e provo a compliarlo, mi da un errore nella riga 23: Identifier expected on line 23. Ho pensato l'errore fossero i ":"; ho quindi messo PtX = TEdit e messo su Caption, nella riga sopra un ' '. Così compila, ma se lo vado ad eseguire (l'ho chiamato 2.exe), mi da questo errore:

Exception EReadError in module 2.exe at 00001802F. Error reading lblDescrizione.PtX: Property PtX does not exist.

Se qualcuno ha qualche dritta da darmi, lo faccia :D
isAlreadyInUse
08-10-2007, 21:23
Sembra il codice di una Form VB
cdimauro
08-10-2007, 22:54
No, è il file che contiene la definizione e i dati di un form di Delphi.

In Delphi ogni form ha due file: un .dfm, che è come quello riportato, e un .pas che contiene il codice vero e proprio.

x 3vi: i dati di un .dfm si modificano da dentro Delphi. Usa l'IDE per impostare comodamente tutti i dati, e soprattutto in maniera SICURA. ;)
thehuge
09-10-2007, 15:09
Ditemi con che linguaggio è scritto questo programma?


Scusa, ma se hai usato un compilatore... come fai a non sapere con che linguaggio è scritto? :confused:
Voglio dire... il compilatore che hai usato è per un linguaggio specifico... no?
khamel
09-10-2007, 16:25
Punto 1000 euro su Delphi :D
3vi
09-10-2007, 18:13
Scusa, ma se hai usato un compilatore... come fai a non sapere con che linguaggio è scritto? :confused:
Voglio dire... il compilatore che hai usato è per un linguaggio specifico... no?

:asd:

no...praticamente ho il file .exe; l'ho aperto con un programma, che consente di cambiare alcune parti dell'eseguibile: si può cambiare il colore di sfondo, delle parole, si possono rinominare delle varibiali e via cosi. Solo che io, anche se non modifico niente e se lo vado a compilare, mi da quell'errore. A me interessava, oltre che sapere che linguaggio è, sapere se dentro il codice che ho postato, apparentemente ci sono delgli errori :stordita:
khamel
09-10-2007, 18:42
Ha ragione il tuo software, alla riga 23 manca il valore dell'attributo Caption..

La sintassi corretta è

Caption = 'Quello che ti pare'

Ciao
3vi
09-10-2007, 20:01
Ha ragione il tuo software, alla riga 23 manca il valore dell'attributo Caption..

La sintassi corretta è

Caption = 'Quello che ti pare'

Ciao


intatti: avevo provato a correggere quell'errore, facendo come mi dici te, ma me ne dava un altro di errore :asd:

ora riprovo :D

edit:

correggendo quell'errore mi da, in fase di compilazione:

''='' expected on line 23

io penso voglia l'= in PtX = TEdit

ma se modifico quello, lo compila, ma l'eseguibile mi da l'errore che avevo citato alla fine del primo post
khamel
10-10-2007, 07:42
fai cosi

Caption = 'quello che vuoi'
object PtX: TEdit
3vi
10-10-2007, 21:47
fai cosi

Caption = 'quello che vuoi'
object PtX: TEdit

se faccio così, mi da questo errore:

OBJECT expected on line 140

linea 140 è l'ultima, quella dopo l'ultimo end :D
3vi
11-10-2007, 17:35
up :stordita:

datemi qualche spunto :D
Simplesso
11-10-2007, 19:36
Ahahah.....


di che alleanza sei? :) ARGH!
3vi
11-10-2007, 19:42
Ahahah.....


di che alleanza sei? :) ARGH!

mica l'ho capita questa :stordita:

parli del gioco forse? :stordita:

nel caso, nn so, è un mio amico che ci gioca :D
Simplesso
11-10-2007, 19:51
Si certo mi riferivo a pirates war :)

Chi è il tuo amico?
3vi
11-10-2007, 22:40
Si certo mi riferivo a pirates war :)

Chi è il tuo amico?

Emmegei, Nazgul

:D

vuoi dirmi che non ti è mai venuta in mente di cambiare qualcosa in quella finestra? :D
Simplesso
12-10-2007, 10:20
Eh avoglia! :)

Ne ho fatte di cose per PW :D

Ho messo su un vero e proprio centro di raccolta informazioni e non solo... :P


http://mugiwara.netsons.org/
Emmegei
12-10-2007, 15:35
olà Simplesso, ho visto i tuoi lavori sul link postato...
..dici che quanto richiesto da 3vi è fattibile? manca così poco.... :D
Simplesso
12-10-2007, 16:01
Mi spiace ma non conosco quel linguaggio.......
khamel
12-10-2007, 16:07
Questo è il codice FUNZIONANTE l'ho testato direttamente con delphi. Ti mancavano gli ' ' un "end" e un "object"

Ciao


object frmDogane: TfrmDogane
Left = 333
Top = 192
Width = 670
Height = 632
Caption = 'Cerca dogane\isole'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object lblDescrizione: TLabel
Left = 40
Top = 16
Width = 3
Height = 13
Caption = ' '
end
object PtX: TEdit
Left = 64
Top = 64
Width = 41
Height = 21
MaxLength = 3
TabOrder = 0
Text = 'txtX'
end
object txtY: TEdit
Left = 144
Top = 64
Width = 41
Height = 21
MaxLength = 3
TabOrder = 1
Text = 'txtY'
end
object btnSearch: TButton
Left = 40
Top = 104
Width = 75
Height = 25
Caption = 'Cerca'
TabOrder = 2
OnClick = btnSearchClick
end
object btnExit: TButton
Left = 576
Top = 560
Width = 75
Height = 25
Caption = 'Exit'
TabOrder = 3
OnClick = btnExitClick
end
object txtRes: TListBox
Left = 232
Top = 64
Width = 369
Height = 313
Color = clMenu
Font.Charset = ANSI_CHARSET
Font.Color = clInfoText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ItemHeight = 15
ParentFont = False
TabOrder = 4
end
object RadioGroup1: TRadioGroup
Left = 48
Top = 288
Width = 137
Height = 105
Caption = ' Coordinate da stampare:'
ItemIndex = 0
Items.Strings = (
'10 '
'20'
'30'
'40'
'50')
TabOrder = 5
end
object Stamp: TRadioGroup
Left = 32
Top = 160
Width = 185
Height = 105
Caption = 'Visualizza'
ItemIndex = 0
Items.Strings = (
'Dogane Amiche (MoD e Alleati)'
'Isole del tesoro'
'Tutte le isole')
TabOrder = 6
end
object Button1: TButton
Left = 312
Top = 504
Width = 75
Height = 25
Caption = 'Aggiorna'
TabOrder = 7
Visible = False
OnClick = Button1Click
end
object Edit1: TEdit
Left = 40
Top = 496
Width = 121
Height = 21
TabOrder = 8
Visible = False
end
object Button2: TButton
Left = 312
Top = 552
Width = 75
Height = 25
Caption = 'Elimina'
TabOrder = 9
Visible = False
OnClick = Button2Click
end
object CheckBox1: TCheckBox
Left = 8
Top = 432
Width = 121
Height = 17
Caption = 'Aggiorna il DataBase'
TabOrder = 10
OnClick = CheckBox1Click
end
end