Inhalt (Get...) in Variable Speichern?

[Teyhouse]

Hallo,
ich habe eine Funktion die sieht wie folg aus:
GetInformation ('name.txt'); Gebe ich diese nun mit WriteLn aus, funktioniert es wunderbar!
Möchte ich die Ausgabe allerdings nun in einer Variable speichern funktioniert das ganze nicht!?
Zum Beispiel:
(Variable oberhalb Deklariert mit var out: String; )
out := GetInformation ('name.txt'); Funktioniert aber nicht!
Habe schon über einen Array nachgedacht, allerdings ist die Menge der Ausgabe von GetInformation unbekannt!?

Wie müsste es nun richtig aussehen wollte ich das ganze in einer Variable speichern?

Mfg. Teyhouse

[chaosben]

Normalerweise sollte das so funktionieren:

Delphi-Quellcode:

function GetInformation(AFilename : String) : String;
var
  Buffer : String;
begin
  //Datei öffnen
  //Information in die Variable "Buffer" lesen

  //Resultat der Funktion setzen ...
  Result := Buffer;
  //... oder anhängen
  Result := Result + Buffer;

  //Datei schliessen
end;

procedure WasWeissIch();
var
  Info : String;
begin
  Info := GetInformation('name.txt');
end;

Btw.: "out" ist kein schöner Variablenname, weil es ein reserviertes Wort ist.

[DelphiKlaus]

Hallo,

Zum einen ist die Frage, von welchem Typ die Funktion GetInformation ist, und zum anderen: was heißt "Funktioniert nicht"? Compilerfehler, Laufzeitfehler?

MfG

Klaus

[Teyhouse]

[Fehler] old.dpr(189): Inkompatible Typen: 'String' und 'procedure, untyped pointer or untyped parameter'

Das ist der Fehler welcher ausgegeben wird?

[mkinzler]

Dann zeig uns doch einmal die Dekalaration der Funktion

[Teyhouse]

Das kann ich leider nicht bzw. darf ich nicht, die Funktion darf nicht Public werden!
Kann aber die benutzten Deklarationen zeigen:

Delphi-Quellcode:

type
  TSECItem = packed record
    SECItemType: dword;
    SECItemData: pchar;
    SECItemLen: dword;
  end;
  PSECItem = ^TSECItem;
var
  NSSModule: THandle;
  NSS_Init: function(configdir: pchar): dword; cdecl;
  NSSBase64_DecodeBuffer: function(arenaOpt: pointer; outItemOpt: PSECItem; inStr: pchar; inLen: dword): dword; cdecl;
  PK11_GetInternalKeySlot: function: pointer; cdecl;
  PK11_Authenticate: function(slot: pointer; loadCerts: boolean; wincx: pointer): dword; cdecl;
  PK11SDR_Decrypt: function(data: PSECItem; result: PSECItem; cx: pointer): dword; cdecl;
  NSS_Shutdown: procedure; cdecl;
  PK11_FreeSlot: procedure(slot: pointer); cdecl;
  hToken: THandle;
  ProfilePath: array [0..MAX_PATH] of char;
  ProfilePathLen: dword;
  FirefoxProfilePath: pchar;
  MainProfile: array [0..MAX_PATH] of char;
  MainProfilePath: pchar;
  PasswordFile: THandle;
  PasswordFileSize: dword;
  PasswordFileData: pchar;
  Passwords: string;
  BytesRead: dword;
  CurrentEntry: string;
  Site: string;
  Name: string;
  Value: string;
  KeySlot: pointer;
  EncryptedSECItem: TSECItem;
  DecryptedSECItem: TSECItem;
  Result: string;

Hilft das?

[mkinzler]

Mich interessiert nicht die Implementierung sondern nur Signatur (Interface) der Funktion

[Teyhouse]

Ok frag ich ma so, wie könnte ich die Ausgabe von WriteLn in ne Variable umleiten? Das würde auch funktionieren!?

[DeddyH]

Poste doch einfach die Signatur der Funktion. Eine Signatur sieht z.B. so aus:
function GibWasZurueck(const iBla: integer): string;

[Teyhouse]

Signatur:
1.
procedure GetInformation(SignonsFile : String);