Einige Fragen zu meinem neuen Spiel :(

[sniper_w]

Zitat:

Ich möchte es beim "neuen" Spiel ermöglichen, dass man die MySQL-DB benutzt.
PROBLEM: Ich hab euch dafür zwar schon gefragt, aber... es klappt einfach nicht Sad (D7 PE)
LÖSUNG: Könnt ihr mir schnell ein Miniprog schreiben, das MySQL ohne besondere Komponenten anspricht?
Denn wenn es bei euch geht, dann müsste es theoretich ja auch bei mir funzen (ich probiers mit XAMPP)

http://threeforseven.de/download.php?view.3

Zitat:

Dann bräuchte ich noch einen Schnipselchen an Code, der es mir ermöglicht, alle Dateien eines bestimmtes Dateityps in einem Ordner zu finden

Delphi-Quellcode:

procedure ListFileDir(Path: string; FileList: TStrings);
var
  SR: TSearchRec;
begin
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
  begin
    repeat
      if (SR.Attr <> faDirectory) then
      begin
        FileList.Add(SR.Name);
      end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListFileDir('C:\WINDOWS\', ListBox1.Items);
end;