Hmm entweder ist es spät oder ich habe (wie ich eher vermute) nen gedankenfehler drin.
Hier mal in abgewandelter form als procedure und ins array schreibend.....
Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 =
class(TForm)
Button1: TButton;
Memo1: TMemo;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
type
tmyarray =
array[1..10]
of string;
var
Form1: TForm1;
test1,test2,test3: tmyarray;
implementation
{$R *.dfm}
procedure schreib(s:
string ; foo:tmyarray);
// <- hier übergebe ich test1 oder ?
var x:integer;
begin
x:=1;
Repeat
foo[x]:=s;
// <<----- foo ist doch quasi mein array als variable oder ? <- sollte er doch hier in test1 schreiben nicht in foo ¿
inc(x);
Until x=5;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
// 'MUH' in Array Test1 schreiben
schreib('
muh', test1);
end;
procedure TForm1.Button2Click(Sender: TObject);
var x: integer;
begin
// Array (Test1) in ein MemoFeld schreiben
x:=1;
memo1.Lines.Clear;
Repeat
memo1.Lines.Add(test1[x]);
inc(x);
Until x=10;
end;
end.
Test1 ist aber leer......