Aus Edit1 aus lesen

[Christian18]

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]

Zitat:

Zitat von Christian18

...Was kann ich dagegen machen???

Ein Semikolon einfügen?

[HAF4ever]

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]

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]

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]

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]

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]

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]

OK Schubi,

Vielen Vielen Dank jetzt funktioniert es