Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BullsEye,
26. Apr 2009
Sry, hatte gar nicht gesehen, das jdn geantwortet hat. War nicht als neues Beitrag makiert. :drunken:
Danke, DeddyH genau sowas meinte ich! DANKE!
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BullsEye,
24. Apr 2009
So, ich hab jetzt folgenden Code um Ordnernamen auszulesen.
procedure ListSubDirs(sDir: string; const sList: TStrings);
var Rec: TSearchRec;
begin
sList.BeginUpdate;
try
// sList.Clear;
if FindFirst(IncludeTrailingPathDelimiter(sDir) + '*.*', faDirectory or faReadOnly or faHidden or faArchive, Rec) = 0 then
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by BullsEye,
12. Sep 2008
Hallo Leute,
Also, ich habe ein Programm, da kann ich auf Buttonklick Einträge in eine ListeBox (Liste) hinzufügen.
IF (Edit1.Text <> '') THEN
Liste.AddItem(Edit1.Text + ' (' + ComboBox1.Text + ' | '+ Label1.Caption + ' | '+ Label2.Caption + ')',Sender);
ELSE
ShowMessage('Bitte geben Sie einen Namen an!');