Einzelnen Beitrag anzeigen

toyoman

Registriert seit: 2. Jun 2003
323 Beiträge
 
Delphi 2010 Enterprise
 
#1

Datei Inhalt wird nicht in Memo angezeigt

  Alt 27. Nov 2007, 08:13
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;
  Mit Zitat antworten Zitat