Forum: Object-Pascal / Delphi-Language
by SaFu,
23. Jul 2007
danke schön
hatt mir sehr geholfen
ich werde dann mal einen neuen thread öffnen wegen diesem findnext und findfirst usw
Forum: Object-Pascal / Delphi-Language
by SaFu,
23. Jul 2007
das heisst auf einem anderen betriebsystem würden die dinge nicht richtig bzw garnicht funktionieren??
Forum: Object-Pascal / Delphi-Language
by SaFu,
23. Jul 2007
Na da werd ich ja verrückt das geht so, das * steht jetzt für die endung????
Forum: Object-Pascal / Delphi-Language
by SaFu,
23. Jul 2007
Hi
also ich findes es sehr beeindruckend das marabu eigentlich immer ne anwort hat und auch immer
zuhelfen versucht danke erstmal
aber bei diesem code vertehe ich nur bahnhof kann mir das vielleicht einer erklären, zeile für zeile ich habe echt den drang das auch zuverstehn und nicht einfach zu kopieren
z.b.
- ffoExcludeExt darüber steht nichts in der Delphi hilfe
Forum: Object-Pascal / Delphi-Language
by SaFu,
21. Jul 2007
naja bissel doof ausgedrückt stell ich gerade fest
Also nochmal
ich setze die FileListBox so auf einen bestimmten ordner so
Liste1:= (ExtractFilePath(ParamStr(0)) +('\Vertretungspläne\'+(IntToStr(YearOf(Date)))+'_KW_'+(IntToStr(WeekOfTheYear(Date)))));
FileListBox1.Directory := Liste1;
Forum: Object-Pascal / Delphi-Language
by SaFu,
21. Jul 2007
Wende ich das hier an
Liste1:= (ExtractFilePath(ParamStr(0)) +('\Vertretungspläne\'+(IntToStr(YearOf(Date)))+'_KW_'+(IntToStr(WeekOfTheYear(Date)))));
FileListBox1.Directory := Liste1;
wenn ich die dateien in die liste lade??
so vielleicht
Forum: Object-Pascal / Delphi-Language
by SaFu,
21. Jul 2007
So gehts auch nicht
name := Copy(ExtractFileName(FileListBox1.FileName), 1, Pos(FileListBox1.FileName, ExtractFileExt(FileListBox1.FileName));
das ist das nächste problem was ich danach löse
Forum: Object-Pascal / Delphi-Language
by SaFu,
21. Jul 2007
hi habe mal wieder nach langer zeit eine Frage
Warum bekomme ich in meiner FileListBox die endung nicht weg
procedure TForm8.FileListBox1Change(Sender: TObject);
var name :String;
begin
name := Copy(ExtractFileName(FileListBox1.FileName), 1, Length(ExtractFileName(FileListBox1.FileName))-Length(ExtractFileExt(FileListBox1.FileName));