Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Aus Edit1 aus lesen (https://www.delphipraxis.net/20342-aus-edit1-aus-lesen.html)

Christian18 16. Apr 2004 11:02


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:
ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q test.zip "C:\*.*"', nil, SW_NORMAL);
Jetzt packt er alle daten in test.zip statt test.zip soll der Pfad aus dem Edit1 Feld rein. wie mache ich das???

Mit freundlichen Grüßen

Christian18

Luckie 16. Apr 2004 11:04

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);

S2B 16. Apr 2004 11:05

Re: Aus Edit1 aus lesen
 
Delphi-Quellcode:
ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q' + Edit1.Text' "C:\*.*"', nil, SW_NORMAL);
Oder hab ich mal wieder alles falsch verstanden?? :mrgreen:

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!

Luckie 16. Apr 2004 11:07

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.

s14 16. Apr 2004 11:07

Re: Aus Edit1 aus lesen
 
Nein, nur " + '" vergessen :mrgreen:

S2B 16. Apr 2004 11:11

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...

himitsu 16. Apr 2004 11:14

Re: Aus Edit1 aus lesen
 
Delphi-Quellcode:
ShellExecute(FMain.Handle, nil, 'pacomp', PChar('-a -c2 -r -P -q ' + Edit1.Text + ' "C:\*.*"'), nil, SW_NORMAL);
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:
Delphi-Quellcode:
PChar('-a -c2 -r -P -q ' + Edit1.Text + ' "C:\*.*"')
                      ^                  ^

Edit1.Text + ' "C:\*.*"')
          ^^^^^

Wheelie 16. Apr 2004 11:53

Re: Aus Edit1 aus lesen
 
wieso muss man eigentlich mit PChar casten?? :gruebel:

MrKnogge 16. Apr 2004 12:20

Re: Aus Edit1 aus lesen
 
Weil TEdit.Text vom Typ string ist.

himitsu 16. Apr 2004 12:40

Re: Aus Edit1 aus lesen
 
und weil ShellExecute keine Strings mag.

MSDN > ShellExecute


[EDIT]
:gruebel: die DP mochte den Link wohl nicht

Christian18 19. Apr 2004 10:44

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???

Sharky 19. Apr 2004 10:45

Re: Aus Edit1 aus lesen
 
Zitat:

Zitat von Christian18
...Was kann ich dagegen machen???

Ein Semikolon einfügen?

HAF4ever 19. Apr 2004 10:46

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

Christian18 19. Apr 2004 10:51

Re: Aus Edit1 aus lesen
 
Delphi-Quellcode:
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text' + "C:\1*.*"'), nil, SW_NORMAL);
das ist ein code

HAF4ever 19. Apr 2004 10:53

Re: Aus Edit1 aus lesen
 
Zitat:

Zitat von Christian18
Delphi-Quellcode:
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text'+ "C:\1*.*"'), nil, SW_NORMAL);
das ist ein code

das anführungszeichen nach dem Edit1.Text schaut mich sehr verdächtig an....

-->

Delphi-Quellcode:
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text + 'C:\1*.*'), nil, SW_NORMAL);

Sharky 19. Apr 2004 10:56

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]

Christian18 19. Apr 2004 11:05

Re: Aus Edit1 aus lesen
 
das verstehe ich nicht jetzt funktioniert es nicht mehr
Delphi-Quellcode:
ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text + 'C:\Projekte\SLNPraxis\Daten\1*.*'), nil, SW_NORMAL);
und hiermit funktioniert es

Delphi-Quellcode:
  ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q hilfe.zip "C:\Dokumente und Einstellungen\Christian Borck\Desktop\Daten\*.*"', nil, SW_NORMAL);
soll ich mal die ganze apüplication posten??

Schubi 19. Apr 2004 11:09

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);

Christian18 19. Apr 2004 11:16

Re: Aus Edit1 aus lesen
 
OK Schubi,

Vielen Vielen Dank jetzt funktioniert es


Alle Zeitangaben in WEZ +1. Es ist jetzt 20:38 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