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

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

[HAF4ever]

Zitat von Christian18:

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

-->

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 [/EDIT]

[Christian18]

das verstehe ich nicht jetzt funktioniert es nicht mehr
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

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