-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
2. Jul 2008
1.OpenDialog ist eine Globale variable gewesen, ich hatte noch ander funktionen die darauf zugreifen. hab aber jetzt jeder prozedur eine eigene variable gegeben.
2.Stimmt, OpenDialog und OpenDialog1 sind meine fehler gewesen, hab jetzt überall OpenDialog korrigiert.Dachte das stimmt so.
3.Danke, hab ich eingefügt.
hab den fehler gefunden das immer eine zusätzliche leere zeile einfügt wurde:...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
1. Jul 2008
Es ist unglaublich, aber ich hab es geschafft. Ich hab rumprobiert und bin zu folgendem ergebnis gekommen:
Hier die komplette prozedur:
procedure TForm2.Button3Click(Sender: TObject);
var
DisplayName:string;
i:integer;
h : hIcon;
S : String;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
26. Jun 2008
kann mir denn keiner helfen? :cry:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
23. Jun 2008
hm..ich muss es nur irgendwie hinbekommen, anstatt das ein verzeichnis nach dateien durchsucht wird, der Open Dialog sich öffnet, und die Datei genauso in der Listbox speichert wie mit GetFilesInDirectory...kann mir da wer helfen?
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
23. Jun 2008
Ja, das hab ich mir noch mal durchgelesen. Aber da werden ja alle Dateien von einem Ordner eingescannt und gespeichert - eigentlich will ich nur eine auswählen.... :?:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
23. Jun 2008
@Calculon
bei funktionierts einwandfrei, ohne fehler, mit mehreren einträgen.
Ich habe die funktion von MSSSSM bei mir eingebaut und bin zufrieden damit mit. Hat alles sofort geklappt, ein danke an dich.
ein fettes danke natürlich ganz besonders an DeddyH, mkinzler und DieMuhkuh für eure tipps und geduld. :thumb:
EDIT:
Muss mich korrigieren, Calculon hat recht. Der String wird manchmal...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
22. Jun 2008
keine angst, ich hab ne kopie von meinem projekt gemacht. ich will das ja nur testen.
Es ist ja nicht so, das alles unnütz war ;)
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
22. Jun 2008
super, genau die funktionen, die ich benötige. ich werde mir mal den code anschauen und dann feedback geben.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
22. Jun 2008
man kann deinen text nur lesen wenn man dich zitiert.
Von mir aus kannst du gerne ein beispiel machen, solange es funktioniert :D
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
22. Jun 2008
ja, ist alles entfernt. Die beiden greifen jetzt auf die Unit FileArray zu, wo MeinArray deklariert ist.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
22. Jun 2008
ja, das mit den eckigen klammern hab ich auch gerade bemerkt, thx.
hab deinen code hinzugefügt und ersetzt, aber dann kommt wieder DeddyH´s Showmessage "Da haben wirs"
und direkt danach kommt wieder "Fehler bei der Bereichsprüfung" wieder an der selben stelle bei ShellExecute. :wall:
begin
FileArray.lIndex := ListBox1.ItemIndex;
if FileArray.lIndex < 0 then exit;
if lIndex >...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
22. Jun 2008
Ok, hab ich so übernommen. jetzt gibts keine probleme mit nicht deklarierten bezeichnern.
Jetzt funktioniert das ganze auch ohne FileArray davor.
allerdings wird jetzt hier ein fehler ausgespuckt:
begin
:= Length(MeinArray); //Fehler: Der linken seite kann nichts zugewiesen werden.
SetLength(MeinArray, lIndex + 1);
MeinArray.RealFileName :=...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
22. Jun 2008
Ok, ich hab jetzt eine Unit names "FileArray" erstellt,in der sich MeinArray befinden soll, worauf die Units Main und Name zugreifen sollen.
Unit Name soll schließlich die Daten ins Array schicken.
in der FileArray befindet sich bis jetzt folgendes:
Hab in beiden Formularen Main und Name in der Uses Klausel FileArray eingetragen.
unit FileArray;
interface
var
lIndex : Integer;
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
22. Jun 2008
ich merke gerade das ich nicht mehr weit komme ich bin zu müde. ich mach in ein paar stunden weiter, trotzdem danke. :zwinker:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
lIndex ist doch initialisiert mit := ListBox1.ItemIndex;
aber wie soll ich denn dann den Eintrag von der Name.pas in die Main.pas bekommen? Das Edit wo der Alternativnamen geschrieben wird, sitzt auf der Name.pas. Die Listbox, in der dieser Name hineinkommt, sitzt auf der Main.pas.
ich dachte, es wäre ein array, was sich beide units teilen.
wie lautet dann der korrekt Pchar bei...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
Jungs,ich danke euch für eure geduld und für eure hilfe, hoffe ihr seid mir nicht böse :cyclops:
Ich arbeite zum ersten mal mit einem Array und habe nicht die geringste ahnung wie ich das tun soll. :|
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
mit deinem code öffnet sich ein ShowMessage Fenster. Sobald ich auf Ok klicke, erscheint wieder ein Fenster mit der Fehlermeldung.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
es wird dasselbe wie seit 2 seiten zuvor angezeigt: "Fehler bei Bereichsprüfung". bei
Err := ShellExecute(Form2.Handle,
hab auch schon einfach nur
ShellExecute(Form2.Handle,
versucht...ebenfalls ein schuß in den ofen, mit o.g. Fehlermeldung.
Dachte das hätte ich schon of genug geschrieben..... :mrgreen:
EDIT:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
nichts.
self.Handle, Form2.Handle, und Application.Handle haben nichts gebracht....
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
Err := ShellExecute(Form2.Handle,
da hab ich den breakpoint gesetzt, und da wird mir auch angezeigt das da etwas nicht stimmt.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
das hatte ich eben testweise geschrieben, hab vergessen das zu löschen.
Es klappt leider immer noch nicht, die Showmessage bekomme ich auch nicht angezeigt... :wall:
Danke für deine geduld und hilfsbereitschaft.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
procedure TForm2.Button2Click(Sender: TObject);
function ShellExecuteErrMessage(int_Code: INTEGER): String;
begin
case int_code of
0: result := 'Zuwenig Speicher, ausführbare Datei war zerstört, Relokationswerte waren ungültig';
2: result := 'Datei wurde nicht gefunden.';
3: result := 'Verzeichnis wurde nicht gefunden.';
5: result := 'Fehler beim gemeinsamen...
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
hab ich auch schon versucht. bringt leider nichts, habs auch schon mit lIndex := Length(MeinArray); versucht, ebenso wenig erfolg.
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
hm. komischerweise bekomme ich jetzt angezeigt das die nicht initialisiert wurde. eben hab ich die fehlermeldung nicht gehabt.... :?:
-
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Johnny Bravo,
21. Jun 2008
Danke, für den überarbeiteten code.
Allerdings wird immernoch der Fehler bei Bereichsprüfung immernoch angezeigt, und zwar:
begin
if Err <=0 then
ShowMessage(MeinArray.RealFileName); //nur zur Kontrolle - lass ich das weg, geht der fehler eine zeile tiefer.
ShellExecute(Application.Handle,
'open',
Pchar(MeinArray.RealFileName),