Hallo,
wir müssen ein Programm machen. EIgentlich ganz simpel. WIr haben ein Edit-Feld, wo wir Sachen eingeben und einen Button der die Dinge, die man eingibt, abspeichert.
Man gibt etwas ins Edit-Feld ein, klickt auf Speichern, und diese Daten werden in ein Array gesepcihert. Jedesmal muss das Array verlängert werden. Dann wenn man auf einen anderen Button Names "Ausgabe" klickt, soll das ganze in einem MemoFeld ausgegeben werden, was gespeichert wurde.
Das ganze habe ich versucht, weiß aber net warum es nicht funktioniert. Kann mir jemand dabei helfen?
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Bspeichern: TButton;
Bausgabe: TButton;
Eeingabe: TEdit;
Mausgabe: TMemo;
Bende: TButton;
procedure BendeClick(Sender: TObject);
procedure BspeichernClick(Sender: TObject);
procedure BausgabeClick(Sender: TObject);
procedure anfang;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
i:integer;
Feld:
array of string;
implementation
{$R *.dfm}
procedure anfang;
begin
i:=0;
setlength(Feld,1);
end;
procedure TForm1.BendeClick(Sender: TObject);
begin
halt;
end;
procedure TForm1.BspeichernClick(Sender: TObject);
begin
Feld[i]:=Eeingabe.Text;
i:=i+1;
end;
procedure TForm1.BausgabeClick(Sender: TObject);
begin
For i:=0
to length(Feld)-1
do
MAusgabe.Lines.Add:=Feld[i];
end;
end.
Ich weiß, dass ein Fehler mit der procedure anfang zu tun hat. Da steht irgendwo etwas falsches. Da gabs nämlich einen Error.
Kann mir bitte jemand helfen?