Inhalt (Get...) in Variable Speichern?

[jfheins]

Da es eine procedure ist, gibt sie nicht zurück. Deshalb kannst du auch deen (nicht existenten) Rückgabewert nicht speichern

[DeddyH]

Das ist eine Prozedur, die gibt gar nichts zurück. Wie machst Du das denn mit writeln?

[SimStar001]

Zitat:

out := GetInformation ('name.txt');

Dieses Verlangt eine Funktion, die auch einen Wert zurückgeben kann.

Was du allerdings gemacht hast ist eine Procedure zu schreiben, die schonmal keine Werte Zurückgeben kann.


Die deklaration deiner Funktion sollte so aussehen:

function GetInformation(SignonsFile : String) : String;
Probiers mal aus!

[Teyhouse]

Ja das funktioniert im Prinzip sogar schon, den erst jetzt kann es einen Rückgabewert liefern.
Allerdings ist das ganze noch ein wenig mit Fehlern bestückt.
Könnte mir vielleicht mal jemand der Zeit und Lust hat seine ICQ / Email zukommen lassen?
Dann sende ich einmal den Kompletten Quellcode

Mfg.
Teyhouse


/Edit:
Hänge noch an dieser Stelle:
result := result + (Name, ' = ', Resulty); Fehlerausgabe:
[Fehler] old.dpr(138): ')' erwartet, aber ',' gefunden