listbox und inhalt anzeigen textbox oder richtext

[slm]

kidix das mit aPath habe ich auch versucht

krieg dan aber die meldung

[slm]

das mit der filelistbox von marabu ist auch net schlecht was soll ich sagen ich bin ein blutiger anfänger

[Kidix]

wenn du den pfad nicht mehr in der listbox hast, dann kannst du die datei natürlich auch so einfach nicht öffnen...dann müsstest du den pfad extra mitgeben und nur die datei in der listbox verankern...

[slm]

ok umstieg auf filelistbox dann ist der quellcode auch kleiner

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    FileListBox1: TFileListBox;
    procedure FileListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.FileListBox1Click(Sender: TObject);
begin
 memo1.Lines.LoadFromFile(Filelistbox1.Items[filelistbox1.itemindex]);
end;

end.

nur wie bring dem filelistbox bei welchen ordner es anzeigen soll und das er die dateierweiterung nicht anzeigt

[edit=alcaeus]delphi-Tags eingefuegt. In Zukunft bitte selbst machen, danke. Mfg, alcaeus[/edit]

[slm]

ok hat sich erledigt

hab dem filelistbox ne mask gegeben
und die dateien werde ich in den selben ordner einstellen ohne extension

dann zeigt es die dateien ohne extension und ohne pfad

ist bisschen gemogelt glaube ich aber vorerst sollte das langen


ich dank euch allen, vorallem dir kidix hast mir sehr geholfen
marabu ist wahrscheinlich ein alter fuchs oder auch nicht

dass mit filelistbox ist super

super forum hier

[marabu]

Zitat:

Zitat von slm

nur wie bring dem filelistbox bei welchen ordner es anzeigen soll?

Zitat:

Zitat von slm

die dateien werde ich in den selben ordner einstellen

Gute Nachrichten. Du musst nicht alle Dateien verschieben - du kannst das Verzeichnis einstellen:

Delphi-Quellcode:

FileListBox.Directory := 'C:\Media\Images';

marabu