Hallo Zusammen
Ich bin noch ein Blutiger Anfänger was das programmieren angeht und habe mir ein Buch besorgt womit ich meine ersten anfänge mache, und habe schon das erste Problem.
Ich habe eine mit dem Buch ein kleines programm erstellt was auch bis dato lief, bis ich ein menü einbauen sollte über dem ich öffnen und speichern kann. (Bitte net Lachen)
Ich habe den Übungscode aus dem Buch übernommen und sollte das dann starten um zu schauen wie es funzt. Hmmmmmm ja ok nur gibt es jetzt ein Problem wo ich net weiterkomme. ich habe das folgendermaßen eingegeben.
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
Nr := random (Max) + 1;
Panel1.Caption := Diagnose[Nr];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Panel1.Caption := '';
Edit1.Text := '';
Edit1.SetFocus;
end;
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
Panel1.Caption := Diagnose[ScrollBar1.Position];
ScrollBar1.Min := 1;
ScrollBar1.Max := Max;
end;
procedure TForm1.Oeffnen1Click(Sender: TObject);
begin
try
if OpenDialog1.Execute then
Diagnose.LoadFromFile := (OpenDialog1.FileName)';
ScrollBar1.Max = Diagnose.Count - 1;
except
ShowMessage ('Fehler beim Öffnen der Datei!');
end;
end;
procedure TForm1.Speichern1Click(Sender: TObject);
begin
try
if SaveDialog1.Execute then
Psycho.SaveToFile (SaveDialog1.FileName);
except
ShowMessage ('Fehler beim Speichern der Datei!');
end;
end.
wenn ich jetzt das Programm starten möchte makiert er mir eine Zeile, Diagnose.LoadFromFile := (OpenDialog1.FileName)';
Rot und schreibt mir als Fehlermeldung, Record, Objekt oder Klassentyp erforderlich
und ich habe das genau nach den angaben aus dem Buch übernommen nu steh ich da und weiß net weiter.
Ich hoffe mal das ich hier richtig bin?
Für Hilfe bin ich seh dankbar.
Und sorry für diese bestimmt blöde frage oder so.
Gruß Tumor
[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]