Erste eigene unit- Amateur braucht hilfe

[bwolf]

Hi all,

ich versuch mich grad daran, eine erste eigene Unit zu schreiben, dir mir meine Ini-File bereitstellen soll.

So sieht das aus bisher:

Code:

unit u_myIniFile;

interface


procedure openIniFile(filename : string);


implementation


uses u_main, LbCipher, LbString, IniFiles, SysUtils;

var
  Key256 : TKey256;

  procedure openIniFile(filename : string);
  begin
    myIni := TIniFile.Create(filename);
  end;

end.

Mein Problem:
Ich brauche ja ne Public Variable vom Typ TIniFile, damit ich dann von meinen anderen Units aus mit diesem Arbeiten kann.
Genau hier ist mein Problem - ich weiß nicht, wo ich diese Variable deklarieren soll.

Hoffe ihr könnt mir da auf die Sprünge helfen,
mfG, Benny

[Klaus01]

Delphi-Quellcode:

unit u_myIniFile; 

interface 


procedure openIniFile(filename : string); 

var
  myIni : TInitFile;

implementation 


uses u_main, LbCipher, LbString, IniFiles, SysUtils; 

var 
  Key256 : TKey256; 

  procedure openIniFile(filename : string); 
  begin 
    myIni := TIniFile.Create(filename); 
  end; 

end.

sollte so gehen, aber ist es sinnvoll die ini nochmals in eine Unit
zusammenzufassen?

Grüße
Klaus

[bwolf]

Hi Klaus,

thx für deine Antwort.

Bekomme leider folgenden Error:

Delphi-Quellcode:

[Error] u_inifile.pas(9): Undeclared identifier: 'TIniFile'

Zitat:

sollte so gehen, aber ist es sinnvoll die ini nochmals in eine Unit zusammenzufassen?

Da hast du wohl recht, so richtig sinnvoll ist es nicht ^^
Allerdings speichere ich gewisse Daten verschlüsselt in der Ini-File - und ich will mir nicht in jede Unit, die das Ini-File benutzt, die ganzen Variablen und Units einbinden, die ich zum entschlüsseln brauche. Deshalb hab ich mir vorgestellt, Ini-File und Entschlüsselungs-Zeug zusammen in eine Unit zu packen, die ich dann einfach dort einbinde wo ich eben die Ini-files brauche.


Aber ich will halt auch einfach mal ne zusätzliche Unit benutzen, ums mal gemacht zu haben - sinnvollere Einsatzgebiete werd ich dann schon entdecken :thumb:

Danke für eure Hilfe!

[Klaus01]

Delphi-Quellcode:

unit u_myIniFile; 

interface 

uses 
 IniFiles;   // <------------------


procedure openIniFile(filename : string); 

var 
  myIni : TInitFile; 

implementation 


uses u_main, LbCipher, LbString, SysUtils; 

var 
  Key256 : TKey256; 

  procedure openIniFile(filename : string); 
  begin 
    myIni := TIniFile.Create(filename); 
  end; 

end.

Grüße
Klaus

[bwolf]

Vielen Dank!

Tut mir leid das ich wegen sowas simplen hier rumfrage - hab aber bestimmt ne Stunde rumgedoktort und es nicht geschafft :/
Naja, den Rest sollte ich nun selber hinkriegen ;)
danke danke!

[Klaus01]

Gerne,

sollte Dir nicht leid tun hier zu fragen.
Jeder hier hat mal angefangen - und manchmal
hat man halt einen Hänger.

Grüße
Klaus