Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - ParamStr()s
StefanH - Sa 08.11.03 18:18
Titel: ParamStr()s
Hallo!
Der Code funzt irgendwie nicht so ganz:
Delphi-Quelltext
1:
2:
3:
| for i:=1 to 5 do
if ParamStr(i)<>'' then
(FindComponent('Edit' + IntToStr(i)) as TEdit).Text:= ParamStr(i); |
Bloß walum?????
AndyB - Sa 08.11.03 19:21
Und wir sollen jetzt erraten, was da nicht funktioniert?
Raphael O. - Sa 08.11.03 20:12
wahrscheinlich schon...
IMO müsste der (eigentlich)
funktinieren...
Wolff68 - So 09.11.03 12:09
Vielleicht gibst Du dem Rate-Team hier noch einen Tip WAS nicht funktioniert!?
Hab das eben mal getestet. Hab es in die FormCreate gepackt, weil ich da ein Problem mit der Erstellungs-Reihenfolge vermutete, aber selbst das funktioniert. (Auch wenn ich sowas eher ins FormActivate setzen würde)
BungeeBug - So 09.11.03 12:36
Hi,
im Form Activate gehs bestimmt in die Hose ... Form Aktivate wird jedesmal ausgelößt wenn das Fenster den Fokus erhällt und ich glaub nicht das das der Sinn der Sache war.
StefanH - So 09.11.03 16:07
hmm... sorry :oops:
vielleicht check ich die ParamStr()s auch net... wenn ich eine Datei auf meine Exe zieh, ist es doch ParamStr(1), gell? und wo ist dann die 2te Datei? anscheinend nicht ParamStr(2). das ist nämlich das Problem, Edit2-4 sind leer :(
verstanden?
Stefan
matze - So 09.11.03 16:59
lass dir einfach mal die paramstrs per messagebox ausgeben !! dann wirste schon sehen, was in den paramstr drin ist wenn du nen date oder 2 draufziehst !
Tino - Mo 10.11.03 10:31
Also bei mir funktioniert der folgende Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.FormCreate(Sender: TObject);
Var
Loop: Integer;
begin
Memo1.Lines.Clear;
For Loop := 1 To ParamCount Do
Memo1.Lines.Add (ParamStr (Loop));
end; |
Gruß
Tino
StefanH - Mo 10.11.03 17:11
ich krieg irgenwie nur die erste File... :(
Tino - Di 11.11.03 10:48
Hast du meinen Sourcecode schau ausprobiert? Einfach ein neues Projekt erstellen und im OnCreate Event den Sourcecode einfügen. Wenn du dann im Explorer zwei Dateien markierst und diese auf das Exe-File ziehst werden beide Dateien in das Memo eingefügt.
Gruß
Tino
StefanH - Sa 15.11.03 16:01
funzt nicht :( ich krieg immer nur die 1te....
Delete - Sa 15.11.03 16:11
Und wie viel mal wird dein Programm gestartet?
Normal ist es so, dass wenn man es nicht unterbindet, dass für jede Datei eine eigene Instanz gestartet wird. Oder eben nur die erste genommen wird. Habe es gerade mit dem ResHacker probiert. Zwei Dateien über "Senden an" an ihn geschickt, nur eien wurde geöffnet. Aber im Gegensatz dazu, drei Dateien auf Notepad.exe gezogen: Fehlermeldung, dass der Dateiname ungültig sein und Notepad war leer.
Was ich sagen will, du machst nichts falsch, dein Programm zeigt nur das normale Verhalten unter Windows.
StefanH - Sa 15.11.03 16:20
ein mal... es liegt also an Windows, wie schööööööööööööööön :D
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!