Eine Textdatei in eine Varriable einlesen

[MrKnogge]

Hi zusammen,

Ich hab folgenden Code gefunden, er sorgt dafür, das ich
Dateien per Drad n Drop laden kann.

Delphi-Quellcode:

procedure TForm1.GetDroppedFileNames(var msg : TWMDropFiles); 

var 
sFileName    : string; 
dwFileCount  : cardinal; 
i            : cardinal; 
dwReqdLength : cardinal; 
begin 
  dwFileCount := DragQueryFile(msg.Drop,$FFFFFFFF,nil,0); 
  for i := 0 to dwFileCount - 1 do 
  begin 
    dwReqdLength := DragQueryFile(msg.Drop,i,nil,1); 
    sFileName := StringOfChar(#00,dwReqdLength+1); 
    DragQueryFile(msg.Drop,i,PChar(sFileName),dwReqdLength+1); 
    SynEdit1.Lines.LoadFromFile(sFileName); 
  end; 
end;

Nun möchte ich aber den Text an der Cursor stelle einfügen,
(var temp : string)
also mit SynEdit1.Seltext := temp Meine frage, wie bekomme ich die Datei "sFileName" in temp geladen ?

Ich hab schon probiert temp als Memo zu deklarieren, doch wenn ich dann
eine Datei draufziehe, dannbricht das Programm ab.

Delphi-Quellcode:

procedure TForm1.GetDroppedFileNames(var msg : TWMDropFiles);
var     sFileName    : string;
        dwFileCount  : cardinal;
        i            : cardinal;
        dwReqdLength : cardinal;
        Memo1 : TMemo;
begin
  dwFileCount := DragQueryFile(msg.Drop,$FFFFFFFF,nil,0);
  for i := 0 to dwFileCount - 1 do
  begin
    dwReqdLength := DragQueryFile(msg.Drop,i,nil,1);
    sFileName    := StringOfChar(#00,dwReqdLength+1);
    DragQueryFile(msg.Drop,i,PChar(sFileName),dwReqdLength+1);
    Memo1.Lines.LoadFromFile(sFileName); // <-- HIER BRICHT DAS PROGRAMM AB
    SynEdit1.SelText := Memo1.Lines.Text;
  end;
end;

Weis von euch einer Rat ?