[BUGFIX] OnBeforeSavingMessage - out of string range

14/02/2009 - 03:27 von Hermann Hippen | Report spam
Moin Moin :-),

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
// -
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); Until (Pos(': ',M[j])>1) or (M[j]='');
End;
J := J + 1;
Until (M[j] = '') or (J=M.Count-1);
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 Harald Maedl
14/02/2009 - 11:52 | Warnen spam
Hallo Hermann,

Hermann Hippen schrieb:

Der von Rheinhard und vormals schon von Wolfgang geschilderte Fehler ist
gefunden und behoben.



Und woran ist es gelegen? Mir ist immer noch nicht klar, warum "out of
string range" gemeldet wurde, obwohl ich jetzt altes und neues Skript
mal verglichen habe.:-(

Cu,
Harald

Ähnliche fragen