alle dateien aus einem ordner auflisten

[glkgereon]

Hi Leute,
Ich bin (immer noch) an nem Mini-Word dran, dafür wollte ich auch die schriftart auswählbar machen.
dafür "muss" ich halt den Font-Ordner auslesen, bzw. sämtliche dateien (dateinamen) in eine Combobox reintuen
wie geht das?
ich hatte überlegt, so in der art "brute force attack" alle dateinamen durchzuprobieren, hab das aber nach ca 5-10 sekunden nachdenken wieder verworfen
wie geht das anders? gibts da nen registry-eintrag?
oder ne win-ini?

[mirage228]

FindFirst, FindNext

Um die Fonts auszulesen, würde ich das aber nicht so machen...

mfG
mirage228

[glkgereon]

ja toll, würd ich aber nicht so machen...
hilft mir jetzt echt weiter...

[yoshie]

re musst mal schauen, ob die das was nützt habe ich jetzt mal gefuunden

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  s, path: string;
begin
  path:=extractfilepath(application.exename)+'*.thm'#0;
  s := path;
  ListBox1.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
end;




//Oder mit dieser Function
function ReadDir(Path, Mask: string; ShowPath: boolean): TStringlist;
var SRec: TSearchRec;
  SL: TStringList;
begin
  SL := TStringList.Create;
  FindFirst(Path + Mask, not faDirectory, SRec);
  if ShowPath then
    SL.Add(Path + SRec.Name)
  else
    SL.Add(SRec.Name);
  while FindNext(SRec) = 0 do
    if ShowPath then
      SL.Add(Path + SRec.Name)
    else
      SL.Add(SRec.Name);
  FindClose(SRec);
  Result := SL;
end;



//Aufruf
procedure TForm1.Button2Click(Sender: TObject);
var
  path : string;
begin
  path:=extractfilepath(application.exename)+'Themen\'+Edit1.Text+'\';
  ListBox1.Items:=ReadDir(path,'*.THM',false);
end;

greetz yosh


damit kannst du alle dateien eines ordners mit einer bestimmten endun ausgeben

[glkgereon]

ähhh, ich weiss nicht, werds wohl verwenden, aber grundsätzlich würd ich gern verstehen, was das prog macht (bin noch nit so lange dabei )

[hummer]

Hi
In der CodeLib gibts von sakura ne Procedur um Dateien aus einem Ordner auszulesen. Die findest du >hier<.

[Mirilin]

Klick in die Schweiz

mfg Tobias

[Markus K.]

Hallo glkbkk,
so kannst du alle verfügbaren Schriftarten in einer ComboBox darstellen.

Delphi-Quellcode:

var s:Integer;
begin
     for s:=0 to (Screen.Fonts.Count - 1) do
     ComboBox1.Items.Add(Screen.Fonts.Strings[s]);
end;

Hoffe das ich helfen konnte.

Tschüß Markus

[glkgereon]

@klickindieschweiz, bzw.Mirlin:
is mir zu kompliziert, was ich da genau wo und wie einfügen muss
@Markus
Super, solang es funzt, werds ausprobieren!!!

[Nils_13]

Hi,

wenn ich
Combobox1.Items := Screen.Fonts; verwende, wie rufe ich sie dann auf (RichEdit.Font)?