Boolean Funktion mit String belegen

[SyntaxXx]

Guten Abend zusammen,
ich hab ein kleines Problem.

Ich habe ein Tool geschrieben, welches die API FindResource benutzt.
Diese Funktion ist vom Typ Boolean.

Nun möchte ich mit dieser Funktion einen String auslesen und weiter bearbeiten mit anderen Funktionen.
Nun ist das Problem, dass ich natürlich auf die Variable "Result" keinen string speichern kann, da die Funktion ja Boolean ist.

Habt ihr eine Idee, was ich machen kann?

[stahli]

Da wirst Du eine andere Funktion nutzen müssen oder eine eigene schreiben...

[Darlo]

Keine Anhnung ob das auch mit booleans geht:

Code:

var
myInt: Integer;
begin
myInt := Integer(NewStr('apfelkuchen'));
showmessage(PAnsiString(myInt)^);
end;

[Luckie]

Zitat von SyntaxXx:

Nun möchte ich mit dieser Funktion einen String auslesen und weiter bearbeiten mit anderen Funktionen.
Nun ist das Problem, dass ich natürlich auf die Variable "Result" keinen string speichern kann, da die Funktion ja Boolean ist.

Frage: Ich habe einen Hammer und möchte damit einen Schraube in die Wand drehen. Wie mache ich das?
Antwort: Nimm einen Schraubenzieher.

Und wenn du in der Hilfe mal etwas nach unten Scrollst, werden dir gleich ein paar Werkzeuge angeboten, die zum Thema passen.

[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.