Boolean Funktion mit String belegen

[SyntaxXx]

Ok erst einmal danke.
ich habe es jetzt mal wie folgt versucht.

Ich habe eine Variable global deklariert.
Dann rufe ich die funkiton auf und Speicher in dieser nun das Ergebnis auf dieser Variablen.

Und arbeite dann mit dieser in den anderen Funktionen.

Doch jedesmal wenn ich nun mien Programm kompilieren möchte erhalte ich die Fehlernachricht: "Der Rückgabewert der Funktion könnte undifiniert sein".
Warum genau kommt diese Meldung. Das verstehe ich nicht.


Hier mal ein wenig Quellcode:

Code:

var text : string;

function ReadString : boolean;
var
  hExe : THandle;
  hRes : HRSRC;
  hResLoad : HRSRC;
  lpResLock : pointer;


begin
  hExe := GetModuleHandle(NIL);
  hRes := FindResource(hExe, PChar('Divisor'), RT_String);
  hResLoad := LoadResource(hExe, hRes);
  lpResLock := LockResource(hResLoad);
  SetString(text, PChar(lpResLock), SizeOfResource(hExe, hRes));
  text := text;
end;

Das ist die Funktion. Und ich verstehe nicht, warum ich einen Fehler bekomme, wenn ich die Funktion von Boolean auf string änder.
Das Boolean bezieht sich doch nur auf den Rückgabewert oder?
Weshalb kann ich diesen dann nicht auf String ändern?

[Luckie]

Was willst du den eigentlich machen? Du willst einen Pointer als Zeichenkette zurückgeben oder was?
SetString(text, PChar(lpResLock), SizeOfResource(hExe, hRes)); Ich dachte du wolltest eine Zeichenkette aus der Ressource laden.

Und was soll das:
text := text; Das
result := text; hätte ich ja noch irgendwie verstanden?

Und warum ist text global deklariert? Du hast dir doch schon extra eine Funktion gemacht. Warum rufst du sie nicht dann auf, wenn du den Wert brauchst?

[SyntaxXx]

Oh sorry, dass

Code:

text := text;

sollte eigendlich weg.
Das ist auch Schwachsinn xD

ja wie gesagt, es sollte eigentlich

Code:

Result := text;

heißen.
Nur dann sind wir wieder an dem punkt, dass die Funktion einen Booleantyp zurück gibt, ich aber eigentlich einen String ausgeben möchte.
Doch wenn ich den Typ änder bekomme ich einen Fehler, aber keine Fehlerangabe beim Compilieren.

[Union]

Vielleicht so?
function ReadString : string;

[SyntaxXx]

Ja genau das habe ich ja gemacht und dann beim Compilieren bekomme ich nur angezeigt, dass ein Fehler verursacht wurde und das Project nicht erstellt werden konnte.
Und die Compilitation wird abgebrochen.

Ka warum.

Genau das ist ja das Problem

[Union]

Also bei mir läuft der Compiler mit Deinem Snippet durch.

[Iwo Asnet]

Zitat von SyntaxXx:

Ja genau das habe ich ja gemacht und dann beim Compilieren bekomme ich nur angezeigt, dass ein Fehler verursacht wurde und das Project nicht erstellt werden konnte.
Und die Compilitation wird abgebrochen.

Vermutlich weil die EXE noch läuft. Dann kann sie ja nicht neu erstellt werden.

[SyntaxXx]

So was dummes xD
Sie hat wirklich noch gelaufen xD

Das war jetzt peinlich.

Vielen Dank an euch, ihr seid die Besten.