Hallo,
ich weiß nicht ob ich hier im richtigen Vreich bin, hoffe es aber doch mal
Also ich habe folgendes Problem: Für die Schule muss ich diese Aufgabe machen:
Erstelle ein Programm, wo man in einem Textfeld beliebig viele Namen nacheinander eingeben kann. Die Namen werden nach dem Drücken vom Speichern-Button auf ein Array gelegt. Mit Drücken auf den Ausgabe-Button werden alle bisher eingegebenen Namen Nacheinander in einer Messagebox ausgegeben. Gebe das Programm ab
Ich habe jetzt auch schon geschafft, einen Namen zu schreiben und ihn auf den Array zu legen. Auch das ausgeben ist kein Problem. Nur ich weiß jetzt nich wie ich
1. machen soll, dass erst auf (array) Namen[1], dann auf Namen[2], Namen[3] usw. gespeichert wird.
2. machen soll, dass alle Namen die ich eingegeben habe untereinander angezeigt werden. (Showmessage)
Oder auch nacheinander.
Mein bisheriger Code sieht so aus:
Delphi-Quellcode:
unit Kapitel13;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label4: TLabel;
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1; namen:
array[1..100]
of string; namencounter : integer;
implementation
{$R *.dfm}
procedure TForm1.Button3Click(Sender: TObject);
begin
edit1.Clear;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage (namen[1]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
namencounter := namencounter +1;
end;
end.
Ich hoffe mir kann jemand helfen
Mfg
raysto