![]() |
Aus Edit1 aus lesen
Hallo,
Ich habe ein kleines Problem! Und zwar möchte ich den Pfad den in meinen Edit1 Feld angezeigt wird in mein ShellExecute haben. Hie einmal meine Procedure
Delphi-Quellcode:
Jetzt packt er alle daten in test.zip statt test.zip soll der Pfad aus dem Edit1 Feld rein. wie mache ich das???
ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q test.zip "C:\*.*"', nil, SW_NORMAL);
Mit freundlichen Grüßen Christian18 |
Re: Aus Edit1 aus lesen
Strings kannst du mit + verküpfen.
Mal so am Rande, kann es sein, dass ich diese Zeile schon zum 159874 mal hier sehe? :roll: Damit das hier mal ein Ende hat:
Delphi-Quellcode:
ShellExecute(FMain.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text' + "C:\*.*"'), nil, SW_NORMAL);
|
Re: Aus Edit1 aus lesen
Delphi-Quellcode:
Oder hab ich mal wieder alles falsch verstanden?? :mrgreen:
ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q' + Edit1.Text' "C:\*.*"', nil, SW_NORMAL);
edit: So schlimm darf man das hier nicht stehen lassen... :oops: Stimmt immer noch nicht alles, aber ich wollt den Code von Luckie nicht einfach kopieren! |
Re: Aus Edit1 aus lesen
Bei dir fehlt ein Plus und der Cast nach PChar. Bei zusammengesetzten Strings greift die Compilermagic von Delphi nicht mehr.
|
Re: Aus Edit1 aus lesen
Nein, nur " + '" vergessen :mrgreen:
|
Re: Aus Edit1 aus lesen
@Luckie: Ich glaub, ich schreib auch mal sowas wie du in meine Signatur! :mrgreen: Der war einfach nur eigefügt und das " ' + Edit1.Text" hinzugefügt...
|
Re: Aus Edit1 aus lesen
Delphi-Quellcode:
Und damit es noch besser geht, würde ich die 2 Leerzeichen wieder einfügen und das eine Plus auf die richtige Seite verschieben :wink:
ShellExecute(FMain.Handle, nil, 'pacomp', PChar('-a -c2 -r -P -q ' + Edit1.Text + ' "C:\*.*"'), nil, SW_NORMAL);
Delphi-Quellcode:
PChar('-a -c2 -r -P -q ' + Edit1.Text + ' "C:\*.*"')
^ ^ Edit1.Text + ' "C:\*.*"') ^^^^^ |
Re: Aus Edit1 aus lesen
wieso muss man eigentlich mit PChar casten?? :gruebel:
|
Re: Aus Edit1 aus lesen
Weil TEdit.Text vom Typ string ist.
|
Re: Aus Edit1 aus lesen
und weil ShellExecute keine Strings mag.
![]() [EDIT] :gruebel: die DP mochte den Link wohl nicht |
Re: Aus Edit1 aus lesen
Hallo,
Ich habe das eine Beispiel genommen und da kommt bei ein Fehler. Ich habe das obere Beipiel genommen. Folgender Feher tritt auf. [Fehler] UTagessicherung.pas(58): Operator oder Semikolon fehlt Was kann ich dagegen machen??? |
Re: Aus Edit1 aus lesen
Zitat:
|
Re: Aus Edit1 aus lesen
dann fehlt dir irgendwo ein beistrich oder ein strichpunkt.
stell einfach mal die zeilen des codes ins forum, in denen er den fehler anzeigt |
Re: Aus Edit1 aus lesen
Delphi-Quellcode:
das ist ein code
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text' + "C:\1*.*"'), nil, SW_NORMAL);
|
Re: Aus Edit1 aus lesen
Zitat:
-->
Delphi-Quellcode:
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text + 'C:\1*.*'), nil, SW_NORMAL);
|
Re: Aus Edit1 aus lesen
Da ist das ' vor dem plus nach dem Edit1.Text
Code:
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text [color=red]+ '[/color] "C:\1*.*"'), nil, SW_NORMAL);
[EDIT]Zu langsam :stupid: [/EDIT] |
Re: Aus Edit1 aus lesen
das verstehe ich nicht jetzt funktioniert es nicht mehr
Delphi-Quellcode:
und hiermit funktioniert es
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text + 'C:\Projekte\SLNPraxis\Daten\1*.*'), nil, SW_NORMAL);
Delphi-Quellcode:
soll ich mal die ganze apüplication posten??
ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q hilfe.zip "C:\Dokumente und Einstellungen\Christian Borck\Desktop\Daten\*.*"', nil, SW_NORMAL);
|
Re: Aus Edit1 aus lesen
Da fehlen nur die Leerzeichen vor und nach Edit1.text. also nach dem q und vor dem c:
etwa so:
Delphi-Quellcode:
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q ' + Edit1.Text + ' C:\Projekte\SLNPraxis\Daten\1*.*'), nil, SW_NORMAL);
|
Re: Aus Edit1 aus lesen
OK Schubi,
Vielen Vielen Dank jetzt funktioniert es |
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:19 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz