[BUGFIX] Fehler: Out of string range - OnBeforeSavingMessage

14/02/2009 - 00:10 von Hermann Hippen | Report spam
Moin Moin :-),

Der von Rheinhard und vormals schon von Wolfgang geschilderte Fehler ist
gefunden und behoben. Hier die Updates der Scripte, in deen der Bug
enthalten war:


L2 Einzelscript:
<http://4d.h-hippen.de/E_RemoveHeaders_Include_13022009.zip>

L2 Swiss_Knife_OBSAV:
<http://4d.h-hippen.de/Swiss_Knife_OBSAV_13022009.zip>

L1 Script:

8<[ RemoveHeaders_Include ]>8
// Script Name : RemoveHeaders_Include
// Idee & Autor : Hermann Hippen 2. Februar 2009
// Änderungen/Erweiterungen : Hermann Hippen - 9 Feb 09 Liste der zu löschenden Header
// wurde in eine externe Datei ausgelagert.
// Letzte Überarbeitung : 13. Februar 2009
// UrVersion Url : http://kh-rademacher.de/4d/remove_g1.html
// Aktuelle Version Url : http://4d.h-hippen.de/RemoveHeaders_Include.zip
// -
Procedure IniHeadersToRemove(Var H:TStringList; Var StatPath, ListPath:String);
Var DlgDirPath:String;
Begin
// Hier den Pfad zum Dialogverzeichnis angeben
DlgDirPath := 'C:\Programme\40tude Dialog\';

// Die zu löschenden Header werden in der Datei HeadersToRemove.Dat,
// im Dialog Hauptverzeichnis, angegeben.

// Ab hier nichts mehr àndern!
StatPath := DlgDirPath + 'RemovedHeadersStat.dat';
ListPath := DlgDirPath + 'HEadersToRemove.Dat';
End;
Procedure RemoveHeaders(Var M: TStringList);
Var i, j : Integer;
H, Stat : TStringlist;
StatPath, ListPath : String;
Begin
IniHeadersToRemove(H,StatPath,ListPath);
If Not FileExists(ListPath) Then Exit;
Stat := TStringlist.Create;
H := TStringList.Create;
H.LoadFromFile(ListPath);
If FileExists(StatPath) Then Stat.LoadFromFile(StatPath);
For I := 0 To H.Count-1 Do
Begin
j := 0;
Repeat
If Pos(H[I],M[j]) = 1 Then
Begin
If Stat.Values[H[I]] > ''
Then Stat.Values[H[I]]:=IntToStr(StrToInt(Stat.Values[H[I]])+1)
Else Stat.Add(H[I]+'=1');
Repeat M.Delete(j); j:=j-1; Until (M[j][1] > ' ') Or (M[j] = '');
End;
J := J + 1;
Until M[j] = '';
End;
Stat.Sort;
Stat.SaveToFile(StatPath);
H.Free;
Stat.Free;
End;
8<->8

Cu, Hermann. ž' š°º€ø?žžžžžžž?ø€º°š 'ž
ø€º° '<http://4ds.siteboard.eu>' °º€ø
'ž '40tude-Dialog Scriptwerkstatt' ž'
ø€º°' ž ž ø€º°šššššššš°º€ø ž ž '°º€ø
 

Lesen sie die antworten

#1 Karl-Heinz Rademacher
14/02/2009 - 02:11 | Warnen spam
Hallo °º€øHermannø€º°,

Hermann Hippen schrieb:
L2 Einzelscript:
<http://4d.h-hippen.de/E_RemoveHeaders_Include_13022009.zip>

L2 Swiss_Knife_OBSAV:
<http://4d.h-hippen.de/Swiss_Knife_OBSAV_13022009.zip>



Beide Links >>>Not Found

The requested URL /4d/E_RemoveHeaders_Include_13022009.zip was not found
on this server.
Apache Server at 4d.h-hippen.de Port 80

Mit freundlichen Gruß,
Karl-Heinz Rademacher.
,--[ Die 40tude Dialog - Seiten! ]
Š http://kh-rademacher.de/4d
Š http://kh-rademacher.de/face
`-

Ähnliche fragen