Ditemi con che linguaggio è scritto questo programma?

[3vi]

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

[isAlreadyInUse]

Sembra il codice di una Form VB

[cdimauro]

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]

Ditemi con che linguaggio è scritto questo programma?

Scusa, ma se hai usato un compilatore... come fai a non sapere con che linguaggio è scritto?
Voglio dire... il compilatore che hai usato è per un linguaggio specifico... no?

[khamel]

Punto 1000 euro su Delphi

[3vi]

Originariamente inviato da thehuge

Scusa, ma se hai usato un compilatore... come fai a non sapere con che linguaggio è scritto?
Voglio dire... il compilatore che hai usato è per un linguaggio specifico... no?

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

[khamel]

Ha ragione il tuo software, alla riga 23 manca il valore dell'attributo Caption..

La sintassi corretta è

Caption = 'Quello che ti pare'

Ciao

[3vi]

Originariamente inviato da khamel

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

ora riprovo

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]

fai cosi

Caption = 'quello che vuoi'
object PtX: TEdit

[3vi]

Originariamente inviato da khamel

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

[3vi]

up

datemi qualche spunto

[Simplesso]

Ahahah.....


di che alleanza sei? ARGH!

[3vi]

Originariamente inviato da Simplesso

Ahahah.....


di che alleanza sei? ARGH!

mica l'ho capita questa

parli del gioco forse?

nel caso, nn so, è un mio amico che ci gioca

[Simplesso]

Si certo mi riferivo a pirates war

Chi è il tuo amico?

[3vi]

Originariamente inviato da Simplesso

Si certo mi riferivo a pirates war

Chi è il tuo amico?

Emmegei, Nazgul



vuoi dirmi che non ti è mai venuta in mente di cambiare qualcosa in quella finestra?

[Simplesso]

Eh avoglia!

Ne ho fatte di cose per PW

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


http://mugiwara.netsons.org/

[Emmegei]

olà Simplesso, ho visto i tuoi lavori sul link postato...
..dici che quanto richiesto da 3vi è fattibile? manca così poco....

[Simplesso]

Mi spiace ma non conosco quel linguaggio.......

[khamel]

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