Michael Heydekamp <[EMAIL PROTECTED]> schrieb am 23.05.06 um 16:26:
> Mit meiner Bastelversion funktioniert es auch unter WinXP problemlos.
> Also ist es wohl wirklich so, daß sich dieser Bug im Bemühen
> eingeschlichen hat, den nur unter plain DOS auftretenden Bug (was war
> das eigentlich nochmal?) zu fixen.
> Kannst Du vielleicht mal das Diff dieses Fixes hierhin posten?
Ja, kann ich machen:
-------------------------------------------------------------------
Index: xp9sel.pas
===================================================================
RCS file: /server/cvs/freexp/xp9sel.pas,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- xp9sel.pas 1 Jan 2005 11:16:30 -0000 1.7
+++ xp9sel.pas 28 Mar 2005 10:16:32 -0000 1.8
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9sel.pas,v 1.7 2005/01/01 11:16:30 mw Exp $ }
+{ $Id: xp9sel.pas,v 1.8 2005/03/28 10:16:32 mw Exp $ }
{ CrossPoint - UniSel: Select-/Test-Routinen fuer Unisel-Menüs }
@@ -958,6 +958,11 @@
dir : dirstr;
name : namestr;
ext : extstr;
+{ JM Fix fuer DOS 28.03.2005}
+ p : byte;
+ s3 : string;
+{ /JM }
+
const cfgext : array [1..7] of string[5] = ('*.CFG','*.BFG','*.BFE','*.$CF',
'*.EXE','*.COM','*.BAT');
label restart;
@@ -1006,7 +1011,15 @@
begin
if not (Pos('start ', lstr(s1)) = 1) then
begin
- if (trim(s1) = '') then s2 := WildCard else s2 := s1;
+ { JM Fix fuer DOS 28.03.2005 }
+ { if (trim(s1) = '') then s2 := WildCard else s2 := s1; }
+ if (trim(s1) = '') then s2 := WildCard else begin
+ s3 := s1;
+ p:=blankpos(s3); { Auf Leerzeichen prüfen }
+ if p<>0 then s2:=left(s3,p-1)
+ else s2:=s3;
+ end;
+ { /JM }
if (cpos(':',s2) = 2) or (cpos(DirSepa, s2) = 1) then
s2 := FExpand(s2)
else s2 := FExpand(cdir + s2);
@@ -2067,6 +2080,10 @@
{
$Log: xp9sel.pas,v $
+ Revision 1.8 2005/03/28 10:16:32 mw
+ JM: - Fix für DOS: Unter DOS funktionierte Externe Einstellung (RFC/Client)
+ noch nicht richtig.
+
Revision 1.7 2005/01/01 11:16:30 mw
MW: - Willkommen im Jahr 2005
----------------------------------------------------------
--
Mit freundlichen Gruessen,
Martin Wodrich
------------------------------------------------------------------------
FreeXP Entwickler-Mailingliste
Dev-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/dev-list
