2 Dateien aus einer FileListBox laden

[SaFu]

Hi

Habe folgendes Problem

Ich habe eine FilListBox mit der ich zwei dateien gleichzeitig laden will das Problem ist die Dateien liegen in verschiedene Ordener

Delphi-Quellcode:

 1. (ExtractFilePath(ParamStr(0)) + '\Plan\Woche1\Hallo.txt';

die andere mit gleichen namen in

Delphi-Quellcode:

(ExtractFilePath(ParamStr(0)) + '\Plan\Woche1\Bemerkungen\Hallo.txt';

jetzt würde ich gerne die erste datei anklicken so das die geladen wird sie 1. und nach diesem klicken in der FilelistBox soll die zweite 2. auch geladen werden.

versuche es gerade so die erste geht wunderbar

Delphi-Quellcode:

procedure TForm7.FileListBox1Change(Sender: TObject);
Var Dokument :String;
begin
  //Pfad in Variable übergeben RTF mit Pfadangabe
  Dokument:= LowerCase(ExtractFileExt(FileListBox1.Filename));

    if (Dokument = '.txt') then
      begin
       GridLaden; //Die erste mit pfad

        memoladen; // die zweite mit pfad
     end;
 end;

wie kann man das jetzt so realisieren??

Sascha

[leddl]

:gruebel: Ich verstehe ehrlich gesagt dein Problem nicht ganz... Weder aus deiner Erläuterung, noch aus deinem Code wird mir klar, wo das Problem liegt...

Du hast doch durch deine FileListBox den Dateinamen und den Pfad der ausgewählten Datei, oder?
Der Pfad zur 2. Datei ist dann wahrscheinlich immer der Pfad der ersten Datei + ein Ordner mehr?

Naja, dann häng den Ordner doch einfach an den Pfad an und lad ins Memo die Datei im eben gebastelten Pfad :gruebel:

//Edit:
Btw: Was sind "GridLaden" bzw. "MemoLaden"? Variablen? Methoden?

[DeddyH]

Hallo, da ich zu tippfaul bin, hier ein Link zu einem Thread, bei dem es um etwas ähnliches ging.

[SaFu]

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.

[DeddyH]

Schreib 1. mal so um:

Delphi-Quellcode:

memos:=(ExtractFilepath(FileListBox1.FileName) + 'Bemerkungen\' + ExtractFileName(FileListBox1.FileName));

[SaFu]

Ich kann es nicht fassen es geht danke :cheers: