Hi!
Ich hab da ein Problem mit einem Programm:
Gesucht ist ein Unterprogramm, das aus einem Feld die i-te Position löscht.
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
edZahl: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure Delete;
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Delete(
var Feld:
array [1..20]
of integer);
var N, j, i: integer;
begin
N:= N-1;
for j:=1
to N-1
do
Feld[j]:=Feld[j+1];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Delete;
end;
end.
Mein Problem ist, das es immer bei der Variablendeklaration vom Array Feld hängen bleibt, naja bin eben ein anfänger
Ich hoffe ihr könnt das so schnell wie möglich beantworten, ist irgendwie echt dringend!