Registriert seit: 8. Nov 2006
1.360 Beiträge
Delphi 10.3 Rio
|
Re: 2 Dateien aus einer FileListBox laden
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?"
|