Einzelnen Beitrag anzeigen

Benutzerbild von SaFu
SaFu

Registriert seit: 8. Nov 2006
1.360 Beiträge
 
Delphi 10.3 Rio
 
#4

Re: 2 Dateien aus einer FileListBox laden

  Alt 31. Mai 2007, 11:44
hier mal mehr text das

Delphi-Quellcode:

//========Laden der Memos=================================
procedure TForm7.memoladen;
var memos :TFileName;
          
begin
  
  memos:=(ExtractFilepath('\Bemerkungen\'+FileListBox1.FileName));// 1.
  FileStream.LoadFromFile(memos);
  
end;

//=====StringGrid laden===================================
procedure TForm7.GridLaden;
var Grid :TFileName;
        
begin
  
   Grid:= FileListbox1.FileName;
   FileStream.LoadFromFile(Grid);

end;

//=====Laden vom Plan=======================================
procedure TForm7.FileListBox1Change(Sender: TObject);
Var Dokument :String;
begin
   Dokument:= LowerCase(ExtractFileExt(FileListBox1.Filename));

    if (Dokument = '.txt') then
      begin
       GridLaden;
       if fileload(Filelistbox1.FileName) then //2.
       begin
        memoladen;
        end;
     end;
 end;
bei 1 bekomme ich erneut den ganzenpfad geliefert da hab ich schon einen fehler

und geht das nicht so wie bei 2.
"... Wie gesagt, die Nutzer von 10, 12, 14 Zoll Display's werden deine Seite nicht in voller Pracht sehen können, ...

Surft Ihr mit dem Taschenrechner?"
  Mit Zitat antworten Zitat