Datei Inhalt wird nicht in Memo angezeigt

[toyoman]

Versteh das nicht:

Folgende Funktion nutze ich um das Memo zu befüllen. Weiter unten der Aufruf provisorisch. Mein Memo1 bleibt leer obwohl zwei Datensätze in der Datei drin stehen. GetIniValue holt den Pfad und den Dateinamen aus dem Ini-File. Diesen hab ich schon überprüft und stimmt auch...

Sieht jemand einen Fehler?

Delphi-Quellcode:

// Memo abfüllen aus Datei
function MemoFuellen(Memo: TMemo; Datei:string):boolean;
var
  dat: TStringList;
begin
     dat:= TStringList.Create;
     if fileexists(datei) then
     begin
        dat.LoadFromFile(datei);
        result:=true;
     end else
     begin
        result:=false;
     end;
     dat.Free;
end;

Aufruf:

Delphi-Quellcode:

    if memofuellen(Memo1,getinivalue('StandardValues','IndexPath')+'\'+getinivalue('StandardValues','IndexFile'))= true then
    begin
        showmessage('durchgeführt');
    end;

[Ghostwalker]

Logisch, da du nirgends die geladenen Daten dem Memo zuweist.

Richtig wäre:

Delphi-Quellcode:

function MemoFuellen(Memo: TMemo; Datei:string):boolean;
begin
  result := FALSE;
  if Memo = NIL then exit;
  if fileexists(datei) then
  begin
    memo.lines.LoadFromFile(datei);
    result:=true;
  end;
end;

[toyoman]

Zitat:

Zitat von Ghostwalker

Logisch, da du nirgends die geladenen Daten dem Memo zuweist.

Richtig wäre:

Delphi-Quellcode:

function MemoFuellen(Memo: TMemo; Datei:string):boolean;
begin
  result := FALSE;
  if Memo = NIL then exit;
  if fileexists(datei) then
  begin
    memo.lines.LoadFromFile(datei);
    result:=true;
  end;
end;

Stimmt, bin schon ein wenig blind irgendwie. Danke!