Einzelnen Beitrag anzeigen

Benutzerbild von MrSpock
MrSpock
(Co-Admin)

Registriert seit: 7. Jun 2002
Ort: Owingen
5.865 Beiträge
 
Delphi 2010 Professional
 
#6

Re: 20 Datasets verallgemeinern

  Alt 30. Okt 2003, 07:18
Hallo Hansa,

wenn du den TableStr Array an mehreren Stellen benötigst, aber nur in diesem Formular, kannst du ihn die Privat Section des Objektes packen. Benötigst du ihn nur in der Prozedur, die du angezeigt hast, kannst du ihn auch in die Prozedur selbst packen:

Delphi-Quellcode:
procedure TForm1.btnStartClick(Sender: TObject);
const
   TableStr : array [1..20] of String =('FIRMSTAT8', 'DieZweiteTab', 'NochEine' ...);
var i : byte;
    m : MonatsUmsatz;
    homepath : string;
begin
Sind die Namen einfach nur durchnummeriert, tuts eine Schleife:

TabStr[i] := 'FIRMSTAT'+IntToStr(i);
Albert
Live long and prosper


MrSpock
  Mit Zitat antworten Zitat