Welche Programmiersprache ist das?

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von KillerTier.

    Welche Programmiersprache ist das?

    Ich hab ne kurze Frag und zwar: Ich hab vor für ein Schulprojekt ne Software zu erstellen, dafür gibts jetzt schon ne ältere Software, aber die funktioniert irgendwie nichmehr (deshalb mach ich die mit c# neu). Ich würde jetzt nurnoch gerne Wissen welche Sprache das folgende ist.

    Das ganze war in ner *.pas Datei (--> Pascal?)

    Spoiler anzeigen

    Quellcode

    1. unit Unit1;
    3. interface
    5. uses
    6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7. Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls, Mask;
    9. type
    10. TForm1 = class(TForm)
    11. Edit1: TEdit;
    12. Label1: TLabel;
    13. Label2: TLabel;
    14. Edit2: TEdit;
    15. Label3: TLabel;
    16. Edit3: TEdit;
    17. Label4: TLabel;
    18. Button1: TButton;
    19. Edit4: TEdit;
    20. Label5: TLabel;
    21. Label6: TLabel;
    22. Edit5: TEdit;
    23. Label7: TLabel;
    24. Button2: TButton;
    25. Edit6: TEdit;
    26. Label8: TLabel;
    27. Label9: TLabel;
    28. Edit7: TEdit;
    29. Label10: TLabel;
    30. Button3: TButton;
    31. Edit8: TEdit;
    32. Label11: TLabel;
    33. Label12: TLabel;
    34. Button4: TButton;
    35. RichEdit1: TRichEdit;
    36. Memo1: TMemo;
    37. Memo2: TMemo;
    38. Label13: TLabel;
    39. Label14: TLabel;
    40. Edit9: TEdit;
    41. Button5: TButton;
    42. Label15: TLabel;
    43. Button6: TButton;
    44. Button7: TButton;
    45. Button8: TButton;
    46. Button9: TButton;
    47. Button10: TButton;
    48. Button11: TButton;
    49. Button12: TButton;
    50. Edit11: TEdit;
    51. Label16: TLabel;
    52. Image2: TImage;
    53. Image1: TImage;
    54. Image3: TImage;
    55. Image4: TImage;
    56. Image5: TImage;
    57. Image6: TImage;
    58. Image7: TImage;
    59. Memo3: TMemo;
    60. Edit10: TMaskEdit;
    61. procedure FormCreate(Sender: TObject);
    62. procedure Button5Click(Sender: TObject);
    63. procedure Button11Click(Sender: TObject);
    64. procedure Button6Click(Sender: TObject);
    65. procedure Button7Click(Sender: TObject);
    66. procedure Button8Click(Sender: TObject);
    67. procedure Button10Click(Sender: TObject);
    68. procedure Button9Click(Sender: TObject);
    69. procedure Button1Click(Sender: TObject);
    70. procedure Button2Click(Sender: TObject);
    71. procedure Button3Click(Sender: TObject);
    72. procedure Button4Click(Sender: TObject);
    73. procedure Button12Click(Sender: TObject);
    74. procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    75. procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    76. procedure Edit10KeyPress(Sender: TObject; var Key: Char);
    77. procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    78. procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    79. procedure Edit5KeyPress(Sender: TObject; var Key: Char);
    80. procedure Edit6KeyPress(Sender: TObject; var Key: Char);
    81. procedure Edit7KeyPress(Sender: TObject; var Key: Char);
    82. procedure Edit8KeyPress(Sender: TObject; var Key: Char);
    83. procedure Edit9KeyPress(Sender: TObject; var Key: Char);
    84. private
    85. { Private declarations }
    86. public
    87. login: array[1..30] of array[1..2] of string;
    88. BA: string;
    89. function ChangeResolution(sizex, sizey, bpp: DWORD): Boolean;
    90. { Public declarations }
    91. end;
    93. var
    94. Form1: TForm1;
    96. implementation
    98. {$R *.dfm}
    100. function TForm1.ChangeResolution(sizex, sizey, bpp: DWORD): Boolean;
    101. var
    102. DeviceMode: TDeviceModeA;
    103. i: Integer;
    104. begin
    105. i := 0;
    106. Result := False;
    107. while EnumDisplaySettings(nil, i, DeviceMode) do begin
    108. with DeviceMode do
    109. if (dmPelsWidth = sizex) and
    110. (dmPelsHeight = SizeY) and
    111. (dmBitsPerPel = bpp) then begin
    112. // erst testen, bevor wir umschalten!
    113. case ChangeDisplaySettings(DeviceMode, CDS_TEST) of
    114. // es wird klappen!
    115. DISP_CHANGE_SUCCESSFUL:
    116. Result := True;
    118. DISP_CHANGE_RESTART:
    119. Showmessage('Neustart erforderlich');
    121. DISP_CHANGE_BADFLAGS:
    122. Showmessage('Ungültige Bildschirmeinstellungen');
    124. DISP_CHANGE_FAILED:
    125. Showmessage('Auflösung konnte nicht geändert werden');
    127. DISP_CHANGE_BADMODE:
    128. Showmessage('Bildschirm unterstützt diese Auflösung nicht');
    130. // Nur Windows NT
    131. DISP_CHANGE_NOTUPDATED:
    132. Showmessage('Registry konnte nicht aktualisiert werden');
    134. else
    135. Result := True;
    136. end;
    138. if Result then
    139. //jetzt wird umgeschaltet
    140. ChangeDisplaySettings(DeviceMode, CDS_FULLSCREEN)
    141. end;
    142. Inc(i);
    143. end;
    144. end;
    146. procedure TForm1.FormCreate(Sender: TObject);
    147. begin
    148. login[1,1]:='760';
    149. login[1,2]:='subbrdu';
    150. login[2,1]:='705';
    151. login[2,2]:='pandapower';
    152. login[3,1]:='706';
    153. login[3,2]:='finanzman';
    154. image6.Picture:=image1.Picture;
    155. form1.DoubleBuffered:=true;
    156. changeresolution(640,480,32);
    157. end;
    159. procedure TForm1.Button5Click(Sender: TObject);
    160. var i: integer;
    161. begin
    162. edit9.text:=inttostr(strtoint(edit9.text));
    163. for i:= 1 to 30 do begin
    164. if (login[i,1] = Edit9.Text) and (login[i,2] = Edit10.Text) then begin
    165. BA:=login[i,1];
    166. //Menü an
    167. button6.Visible:= true;
    168. button7.Visible:= true;
    169. button8.Visible:= true;
    170. button9.Visible:= true;
    171. button10.Visible:= true;
    172. button11.Visible:= true;
    173. //Login aus
    174. Label13.Visible:= false;
    175. Label14.Visible:= false;
    176. Label15.Visible:= false;
    177. Edit9.Visible:= false;
    178. Edit10.Visible:= false;
    179. Button5.Visible:= false;
    180. image6.Picture:=image7.Picture;
    181. end;
    182. end;
    183. Edit9.Clear;
    184. Edit10.Clear;
    185. end;
    187. procedure TForm1.Button11Click(Sender: TObject);
    188. begin
    189. image6.Picture:=image1.Picture;
    190. //Login an
    191. Label13.Visible:= true;
    192. Label14.Visible:= true;
    193. Label15.Visible:= true;
    194. Edit9.Visible:= true;
    195. Edit10.Visible:= true;
    196. Button5.Visible:= true;
    197. //Menü aus
    198. button6.Visible:= false;
    199. button7.Visible:= false;
    200. button8.Visible:= false;
    201. button9.Visible:= false;
    202. button11.Visible:= false;
    203. //Überweisung aus
    204. Label1.Visible:=false;
    205. Label2.Visible:=false;
    206. Label3.Visible:=false;
    207. Label4.Visible:=false;
    208. Label6.Visible:=false;
    209. Label16.Visible:=false;
    210. Edit1.Visible:=false;
    211. Edit2.Visible:=false;
    212. Edit3.Visible:=false;
    213. Edit11.Visible:=false;
    214. Button1.Visible:=false;
    215. //Einzahlung aus
    216. Label5.Visible:=false;
    217. Label6.Visible:=false;
    218. Label7.Visible:=false;
    219. Edit4.Visible:=false;
    220. Edit5.Visible:=false;
    221. Button2.Visible:=false;
    222. //Auszahlung aus
    223. Label8.Visible:=false;
    224. Label9.Visible:=false;
    225. Label10.Visible:=false;
    226. Edit6.Visible:=false;
    227. Edit7.Visible:=false;
    228. Button3.Visible:=false;
    229. //Kontoauszug aus
    230. Label11.Visible:=false;
    231. Label12.Visible:=false;
    232. Edit8.Visible:=false;
    233. Button4.Visible:=false;
    234. richedit1.Visible:=false;
    235. Button12.Visible:=false;
    236. end;
    238. procedure TForm1.Button6Click(Sender: TObject);
    239. begin
    240. image6.Picture:=image2.Picture;
    241. //Überweisung an
    242. Label1.Visible:=true;
    243. Label2.Visible:=true;
    244. Label3.Visible:=true;
    245. Label4.Visible:=true;
    246. label16.Visible:=true;
    247. Edit1.Visible:=true;
    248. Edit2.Visible:=true;
    249. Edit3.Visible:=true;
    250. edit11.visible:=true;
    251. Button1.Visible:=true;
    252. edit1.Clear;
    253. edit2.Clear;
    254. edit3.Clear;
    255. edit11.Clear;
    256. //Einzahlung aus
    257. Label5.Visible:=false;
    258. Label6.Visible:=false;
    259. Label7.Visible:=false;
    260. Edit4.Visible:=false;
    261. Edit5.Visible:=false;
    262. Button2.Visible:=false;
    263. //Auszahlung aus
    264. Label8.Visible:=false;
    265. Label9.Visible:=false;
    266. Label10.Visible:=false;
    267. Edit6.Visible:=false;
    268. Edit7.Visible:=false;
    269. Button3.Visible:=false;
    270. //Kontoauszug aus
    271. Label11.Visible:=false;
    272. Label12.Visible:=false;
    273. Edit8.Visible:=false;
    274. Button4.Visible:=false;
    275. richedit1.Visible:=false;
    276. Button12.Visible:=false;
    277. end;
    279. procedure TForm1.Button7Click(Sender: TObject);
    280. begin
    281. image6.Picture:=image3.Picture;
    282. //Überweisung aus
    283. Label1.Visible:=false;
    284. Label2.Visible:=false;
    285. Label3.Visible:=false;
    286. Label4.Visible:=false;
    287. Label6.Visible:=false;
    288. Label16.Visible:=false;
    289. Edit1.Visible:=false;
    290. Edit2.Visible:=false;
    291. Edit3.Visible:=false;
    292. Edit11.Visible:=false;
    293. Button1.Visible:=false;
    294. //Einzahlung an
    295. Label5.Visible:=true;
    296. Label6.Visible:=true;
    297. Label7.Visible:=true;
    298. Edit4.Visible:=true;
    299. Edit5.Visible:=true;
    300. Button2.Visible:=true;
    301. edit4.Clear;
    302. edit5.Clear;
    303. //Auszahlung aus
    304. Label8.Visible:=false;
    305. Label9.Visible:=false;
    306. Label10.Visible:=false;
    307. Edit6.Visible:=false;
    308. Edit7.Visible:=false;
    309. Button3.Visible:=false;
    310. //Kontoauszug aus
    311. Label11.Visible:=false;
    312. Label12.Visible:=false;
    313. Edit8.Visible:=false;
    314. Button4.Visible:=false;
    315. richedit1.Visible:=false;
    316. Button12.Visible:=false;
    317. end;
    319. procedure TForm1.Button8Click(Sender: TObject);
    320. begin
    321. image6.Picture:=image5.Picture;
    322. //Überweisung aus
    323. Label1.Visible:=false;
    324. Label2.Visible:=false;
    325. Label3.Visible:=false;
    326. Label4.Visible:=false;
    327. Edit1.Visible:=false;
    328. Edit2.Visible:=false;
    329. Edit3.Visible:=false;
    330. Edit11.Visible:=false;
    331. Label16.Visible:=false;
    332. Button1.Visible:=false;
    333. //Einzahlung aus
    334. Label5.Visible:=false;
    335. Label6.Visible:=false;
    336. Label7.Visible:=false;
    337. Edit4.Visible:=false;
    338. Edit5.Visible:=false;
    339. Button2.Visible:=false;
    340. //Auszahlung an
    341. Label8.Visible:=true;
    342. Label9.Visible:=true;
    343. Label10.Visible:=true;
    344. Edit6.Visible:=true;
    345. Edit7.Visible:=true;
    346. Button3.Visible:=true;
    347. edit6.Clear;
    348. edit7.Clear;
    349. //Kontoauszug aus
    350. Label11.Visible:=false;
    351. Label12.Visible:=false;
    352. Edit8.Visible:=false;
    353. Button4.Visible:=false;
    354. richedit1.Visible:=false;
    355. Button12.Visible:=false;
    356. end;
    358. procedure TForm1.Button10Click(Sender: TObject);
    359. begin
    360. if MessageDlg('Wirklich Beenden?', mtConfirmation, [mbyes, mbno], 0) = mrYes then close;
    361. end;
    363. procedure TForm1.Button9Click(Sender: TObject);
    364. begin
    365. image6.Picture:=image4.Picture;
    366. //Überweisung aus
    367. Label1.Visible:=false;
    368. Label2.Visible:=false;
    369. Label3.Visible:=false;
    370. Label4.Visible:=false;
    371. Label16.Visible:=false;
    372. Edit1.Visible:=false;
    373. Edit2.Visible:=false;
    374. Edit3.Visible:=false;
    375. Edit11.Visible:=false;
    376. Button1.Visible:=false;
    377. //Einzahlung aus
    378. Label5.Visible:=false;
    379. Label6.Visible:=false;
    380. Label7.Visible:=false;
    381. Edit4.Visible:=false;
    382. Edit5.Visible:=false;
    383. Button2.Visible:=false;
    384. //Auszahlung aus
    385. Label8.Visible:=false;
    386. Label9.Visible:=false;
    387. Label10.Visible:=false;
    388. Edit6.Visible:=false;
    389. Edit7.Visible:=false;
    390. Button3.Visible:=false;
    391. //Kontoauszug an
    392. Label11.Visible:=true;
    393. Label12.Visible:=true;
    394. Edit8.Visible:=true;
    395. Button4.Visible:=true;
    396. Button12.Visible:=true;
    397. richedit1.Visible:=true;
    398. richedit1.Clear;
    399. edit8.Clear;
    400. end;
    402. procedure TForm1.Button1Click(Sender: TObject);
    403. begin
    404. edit1.text:=inttostr(strtoint(edit1.text));
    405. edit2.text:=inttostr(strtoint(edit2.text));
    406. edit3.text:=inttostr(strtoint(edit3.text));
    407. if edit11.Text='' then edit11.Text:='keiner';
    408. if length(edit1.text) >= 1
    409. then begin
    410. if length(edit2.text) >= 1
    411. then begin
    412. if length(edit3.text) >= 1
    413. then begin
    414. if strtoint(edit2.Text)>900 then begin
    415. memo3.lines.loadfromfile('Vollmachten\'+(inttostr(strtoint(edit2.Text)-900)+'.vol'));
    416. end;
    417. memo1.Lines.loadfromfile('Konten\'+edit2.Text+'.kto');
    418. memo2.Lines.loadfromfile('Konten\'+edit1.Text+'.kto');
    419. if strtoint(memo1.Lines[2])>= strtoint(edit3.Text) then begin //Deckung?
    420. memo1.Lines[2]:=inttostr(strtoint(memo1.lines[2])-strtoint(edit3.Text));
    421. memo2.Lines[2]:=inttostr(strtoint(memo2.lines[2])+strtoint(edit3.Text));
    422. memo1.lines.add(datetostr(date)+' '+timetostr(time)+' '+BA+' Überweisung von '+edit3.Text+' Robel an Konto Nr. '+edit1.text+' Verwendungszweck: "'+edit11.text+'"');
    423. memo2.lines.add(datetostr(date)+' '+timetostr(time)+' '+BA+' Zahlungseingang von '+edit3.Text+' Robel von Konto Nr. '+edit2.text+' Verwendungszweck: "'+edit11.text+'"');
    424. memo1.Lines.SaveToFile('Konten\'+edit2.Text+'.kto');
    425. memo2.Lines.SaveToFile('Konten\'+edit1.Text+'.kto'); //Transaktion
    426. showmessage(datetostr(date)+' '+timetostr(time)+' '+BA+' Überweisung von '+edit3.Text+' Robel an Konto Nr. '+edit1.text+' mit Verwendungszweck: "'+edit11.text+'"'+' erfolgreich!');
    427. Edit2.Text:=''; //Felder resetten
    428. Edit1.Text:='';
    429. edit11.Text:='';
    430. Edit3.Text:='';
    431. end else begin
    432. showmessage('Konto des Inhabers verfügt nicht über genug Guthaben!');
    433. end;
    434. end else begin
    435. showmessage('Kein Betrag angegeben!');
    436. end;
    437. end else begin
    438. showmessage('Kein Inhaber angegeben!');
    439. end;
    440. end else begin
    441. showmessage('Kein Empfänger angegeben!');
    442. end;
    443. end;
    445. procedure TForm1.Button2Click(Sender: TObject);
    446. begin
    447. edit4.text:=inttostr(strtoint(edit4.text));
    448. edit5.text:=inttostr(strtoint(edit5.text));
    449. if length(edit4.text) >= 1
    450. then begin
    451. if length(edit5.text) >= 1
    452. then begin
    453. memo1.Lines.loadfromfile('Konten\'+edit4.Text+'.kto');
    454. memo1.Lines[2]:=inttostr(strtoint(memo1.lines[2])+strtoint(edit5.Text));
    455. memo1.lines.add(datetostr(date)+' '+timetostr(time)+' '+BA+' Einzahlung von '+edit5.Text+' Robel');
    456. memo1.Lines.SaveToFile('Konten\'+edit4.Text+'.kto'); //Transaktion
    457. showmessage(datetostr(date)+' '+timetostr(time)+' '+BA+' Einzahlung von '+edit5.Text+' Robel erfolreich!');
    458. Edit4.Text:='';
    459. Edit5.Text:='';
    460. end else begin
    461. showmessage('Eingabefelder nicht korrekt ausgefüllt!');
    462. end;
    463. end else begin
    464. showmessage('Eingabefelder nicht korrekt ausgefüllt!');
    465. end;
    466. end;
    468. procedure TForm1.Button3Click(Sender: TObject);
    469. begin
    470. edit6.text:=inttostr(strtoint(edit6.text));
    471. edit7.text:=inttostr(strtoint(edit7.text));
    472. if length(edit6.text) >= 1
    473. then begin
    474. if length(edit7.text) >= 1
    475. then begin
    476. memo1.Lines.loadfromfile('Konten\'+edit6.Text+'.kto');
    477. if strtoint(memo1.Lines[2])>= strtoint(edit7.Text) then begin
    478. memo1.Lines[2]:=inttostr(strtoint(memo1.lines[2])-strtoint(edit7.Text));
    479. memo1.lines.add(datetostr(date)+' '+timetostr(time)+' '+BA+' Auszahlung von '+edit7.Text+' Robel');
    480. memo1.Lines.SaveToFile('Konten\'+edit6.Text+'.kto'); //Transaktion
    481. showmessage(datetostr(date)+' '+timetostr(time)+' '+BA+' Auszahlung von '+edit7.Text+' Robel erfolreich!');
    482. Edit6.Text:='';
    483. Edit7.Text:='';
    484. end else begin
    485. showmessage('Konto des Inhabers verfügt nicht über genug Guthaben!');
    486. end;
    487. end else begin
    488. showmessage('Eingabefelder nicht korrekt ausgefüllt!');
    489. end;
    490. end else begin
    491. showmessage('Eingabefelder nicht korrekt ausgefüllt!');
    492. end;
    493. end;
    495. procedure TForm1.Button4Click(Sender: TObject);
    496. var k: integer;
    497. begin
    498. edit8.text:=inttostr(strtoint(edit8.text));
    499. if length(edit8.text) >= 1
    500. then begin
    501. richedit1.lines.loadfromfile('Konten/'+edit8.text+'.kto');
    502. richedit1.Lines[0]:='Inhaber: '+richedit1.Lines[0];
    503. richedit1.Lines[1]:='Kontonummer: '+richedit1.Lines[1];
    504. richedit1.Lines[2]:='Guthaben: '+richedit1.Lines[2]+' Robel';
    505. richedit1.Lines[3]:='_____Kontoauszug vom '+datetostr(date)+' '+timetostr(time)+'_____' ;
    506. end else begin
    507. showmessage('Eingabefelder nicht korrekt ausgefüllt!');
    508. end;
    509. end;
    511. procedure TForm1.Button12Click(Sender: TObject);
    512. begin
    513. richedit1.Print(richedit1.lines[0]+' '+richedit1.lines[1]+' Kontoauszug vom '+datetostr(date)+' '+timetostr(time));
    514. end;
    516. procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
    517. begin
    518. if not (Key in ['0'..'9', Char(VK_BACK)]) then
    519. Key := #0;
    520. end;
    522. procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
    523. begin
    524. if not (Key in ['0'..'9', Char(VK_BACK)]) then
    525. Key := #0;
    526. end;
    528. procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char);
    529. begin
    530. if not (Key in ['0'..'9', Char(VK_BACK)]) then
    531. Key := #0;
    532. end;
    534. procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
    535. begin
    536. if not (Key in ['0'..'9', Char(VK_BACK)]) then
    537. Key := #0;
    538. end;
    540. ############### Abgeschnitten ##################

    Die Syntax erinnert mich auch an Objective C.

    #Edit:
    Ich bin mir jetzt ziemlich sicher, dass es sich um Delphi handelt.


    Einfach mal mit folgendem Delphi-Code vergleichen:
    Spoiler anzeigen

    Quellcode

    1. unit Unit1;
    3. interface
    5. uses
    6. Forms, Dialogs, Classes, Controls, StdCtrls, SysUtils;
    8. type
    9. // Define a base TSquare class :
    10. // It has private data that can only be set by a protected method
    11. TSquare = class
    12. private // Only known to the parent class
    13. squareArea : Integer;
    14. protected // Known to all classes in the hierarachy
    15. squareWidth, squareHeight : Integer;
    16. procedure setArea;
    17. Public // Known externally by class users
    18. property width : Integer read squareWidth;
    19. property height : Integer read squareHeight;
    20. property area : Integer read squareArea;
    21. published // Known externally : has run time info also
    22. constructor Create(width, height : Integer);
    23. end;
    25. // Define a descendant type :
    26. // It must use the parent protected method to set the
    27. // private area of the square
    28. TChangeableSquare = class(TSquare)
    29. Public
    30. procedure ChangeSize(newWidth, newHeight : Integer);
    31. end;
    33. // Define the form class used by this unit
    34. TForm1 = class(TForm)
    35. procedure FormCreate(Sender: TObject);
    36. private
    37. { Private declarations }
    38. public
    39. { Public declarations }
    40. end;
    42. var
    43. Form1: TForm1;
    45. implementation
    46. {$R *.dfm} // Include form definitions
    48. // Create the TSquare object
    49. constructor TSquare.Create(width, height: Integer);
    50. begin
    51. // Save the width and height in protected fields
    52. squareWidth := width;
    53. squareHeight := height;
    55. // And calculate the square area
    56. setArea;
    57. end;
    59. // Change the TChnageableSquare dimensions
    60. procedure TChangeableSquare.ChangeSize(newWidth, newHeight: Integer);
    61. begin
    62. // Over-write the original width and height values
    63. squareWidth := newWidth;
    64. squareHeight := newHeight;
    66. // And re-calculate the square area
    67. setArea;
    68. end;
    70. // Set the square size from its dimensions
    71. procedure TSquare.setArea;
    72. begin
    73. // Calculate the square area and store privately
    74. squareArea := width * height;
    75. end;
    77. // Main line code
    78. procedure TForm1.FormCreate(Sender: TObject);
    79. var
    80. mySquare : TChangeableSquare;
    81. begin
    82. // Create a changeable square
    83. mySquare := TChangeableSquare.Create(30, 40);
    85. // What is the square area now?
    86. ShowMessage('Square 30,40 area = '+IntToStr(mySquare.area));
    88. // Change the square dimensions
    89. mySquare.ChangeSize(10,20);
    91. // What is the square area now?
    92. ShowMessage('Square 10,20 area = '+IntToStr(mySquare.area));
    93. end;
    95. end.
    96. Square 30,40 area = 1200
    97. Square 10,20 area = 200

    Es ist Delphi.

    Vergleicht doch mal den Code.


    Die ersten Zeilen seines Codes:

    Quellcode

    1. unit Unit1;
    3. interface
    5. uses
    6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7. Dialogs, StdCtrls, jpeg, ExtCtrls, ComCtrls, Mask;
    9. type
    10. TForm1 = class(TForm)
    11. Edit1: TEdit;


    Die ersten Zeilen eines Delphi beispielcodes:

    Quellcode

    1. unit Unit1;
    3. interface
    5. uses
    6. Forms, Dialogs, Classes, Controls, StdCtrls, SysUtils;
    8. type
    9. TSquare = class
    10. squarearea : Integer;