ich muss in einer Projektarbeit ein eigens Delphi Programm schreiben mit dem Programm lazarus.
Ich habe mich für einen Währungsumrechner entschieden und da ich in diesem Gebiet ein Anfänger bin, bekomme ich ständig Fehlermeldungen.
Der eigentliche Umrechner funktioniert, doch ich würde gerne per Button auf form1, form 2 öffnen wo ein image (das weiß ich auch net wie geht )mit einer grafik ist.
Hier der Quellcode:
Code: Alles auswählen
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
var Euro,Kuna:real;
begin
Euro := StrToFloat(Edit1.Text);
Kuna := Euro * 7.57100;
Edit2.Text := FloatToStrF(Kuna,ffFixed,0,2);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button3Click(Sender: TObject);
var Form3: TForm;
begin
Form3.show;
end;
end.
und hier der von Form2(bzw.3):
Code: Alles auswählen
unit Unit3;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
StdCtrls;
type
{ TForm3 }
TForm3 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
end;
var
Form3: TForm3;
implementation
{$R *.lfm}
{ TForm3 }
procedure TForm3.Button1Click(Sender: TObject);
var Form3 :TForm3
begin
Form3.hide;
end;
end.
wo liegt der bzw die Fehler? und wie kann ich meine wünsche bei diesem Programm verwirklichen?
Ich würde mich über schnellstmögliche Hilfe freuen.
MFG
DC
Verein
Links
