Ok, ich hab jetzt eine
Unit names "FileArray" erstellt,in der sich MeinArray befinden soll, worauf die Units Main und Name zugreifen sollen.
Unit Name soll schließlich die Daten ins Array schicken.
in der FileArray befindet sich bis jetzt folgendes:
Hab in beiden Formularen Main und Name in der Uses Klausel FileArray eingetragen.[delphi]
[pre]
unit FileArray;
interface
var
lIndex : Integer;
implementation
type
TFilenameInfos = record
RealFileName: String;
DisplayName: String;
private
MeinArray: Array of TFilenameInfos; // TFilenameInfos wurde nicht vollständig definiert, Fehlermeldung Nr.1, "Das Private Symbol "Mein Array wurde deklariert, aber nie verwendet"
end;
end.
[/pre]
[pre]
procedure TForm4.Button1Click(Sender: TObject);
var
IconIndex : Integer;
h : hIcon;
S : String;
Icon : TIcon;
begin
if (Edit1.Text = '') then
begin
ShowMessage('Bitte geben sie einen Namen ein.');
exit;
end
else
if Form2.ListBox1.ItemIndex >= 0 then
begin
MeinArray.lIndex := Length(MeinArray);
SetLength(FileArray.FileArray, lIndex + 1);
MeinArray[lIndex].RealFileName := Form2.OpenDialog1.FileName;
MeinArray.MeinArray[lIndex].DisplayName := Form4.Edit1.Text;
Form2.ListBox1.Items.Add(MeinArray[lIndex].DisplayName);
Form2.Listbox1.Update;
end;
[/pre]
wenn ich oben überall ein FileArray vor das MeinArray setzte, bekomme ich eine fehlermeldung "Nicht deklarierter bezeichner MeinArray und lIndex"
Aber lIndex ist doch als globale Variable in
Unit FileArray gesetzt oder nicht?