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;