[BUGFIX] OnBeforeSavingMessage - out of string range

14/02/2009 - 19:51 von Hermann Hippen | Report spam
SUPERSEDE: Download Adressen zu meiner Entlastung angepasst -
sonst keine Änderungen.

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://kh-rademacher.de/4d/remove_g2.html>

L2 Swiss_Knife_OBSAV:
<http://kh-rademacher.de/4d/swiss_obsav.html>

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 Wolfgang Bauer
14/02/2009 - 20:05 | Warnen spam
Servus Hermann.
Hermann Hippen wrote:
SUPERSEDE: Download Adressen zu meiner Entlastung angepasst -
sonst keine Änderungen.

Moin Moin :-),

L2 Swiss_Knife_OBSAV:
<http://kh-rademacher.de/4d/swiss_obsav.html>



Ist es nicht das Script welches ich schon Gestern von der Werkstatt
geholt habe?

Freundliche Grüße
Wolfgang
http://www.wolfgang-bauer.at
40tude-Dialog DER Newsreader unter Windows http://dialog.datalist.org/
Newsgruppe news:de.comm.software.40tude-dialog
40tude-Dialog Forum http://4ds.siteboard.eu/

Ähnliche fragen