[BUGFIX] @Karl-Heinz L1 Script - http://kh-rademacher.de/4d/refHeaderKurzen_g1.html

02/02/2009 - 23:05 von Hermann Hippen | Report spam
Moin Moin :-),

http://kh-rademacher.de/4d/refHeaderKurzen_g1.html

So dies ist das dritte im Bunde mit dem gefixten Thomas BUG:


8<--[ RefHeaderKuerzen_include ]-->8
// RefHeaderKuerzen_include. Stand: 02.02.2009
Function MaxRefHeader:Integer;
Begin
// Hier die maximale Zahl der Ref Header angeben.
Result := 3;
End;
Function CountRefHeader(Var rh: String):Integer;
Var i: Integer;
Begin
Result := 0;
For i := 1 to Length(rh) Do if rh[i]='>' Then Result := Result + 1;
End;
Procedure ReferencesStr(Message: TStringlist; Var L:Integer; Var H:String);
Var i, j : Integer;
Begin
h := ''; i := 0 ;
Repeat
If Pos('References:',Message[i]) = 1 Then
Begin
L := I;
Repeat
j := AnsiPos('<', Message[i]);
h := h + ' ' + Trim(Copy(Message[i], j, Length(Message[I])));
Message.Delete(i);
Until ( Message[i][1] <> ' ') And ( Message[i][1] <> Chr(9));
Exit;
End;
i := i + 1;
Until Message[i] = '';
End;
Procedure RefHeaderKuerzen(Var Message:TStringlist);
Var Max,rhc,posi : Integer;
s,tmp,rh1 : String;
Begin
s:=Message.Text;
Max := MaxRefHeader;
ReferencesStr(Message,posi,tmp);
If tmp = '' Then Exit;
rhc := CountRefHeader(tmp) - Max;
If rhc > 0 Then
Begin
rh1 := Trim(Copy(tmp,Pos('<',tmp), Pos('>',tmp)));
Repeat
tmp := Copy(tmp,Pos('>',tmp) + 1, Length(tmp));
rhc := rhc - 1;
Until rhc = -1;
Message[posi]:='References: ' + rh1 + ' ' + Trim(tmp);
End Else Message.Text:=s;
End;
8<-->8

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

Lesen sie die antworten

#1 Thomas Lacher
03/02/2009 - 09:36 | Warnen spam
Servus Scriptwerkstatt,

Hermann Hippen schrieb am 02.02.2009 um 23:05:

Moin Moin :-),

http://kh-rademacher.de/4d/refHeaderKurzen_g1.html

So dies ist das dritte im Bunde mit dem gefixten Thomas BUG:



Oh, ein eigener Name? Schmeichelhaft ;-)

Tschau,
Tom
Wie beschleunigt man einen PC/XT? - Mit 9,81 m/s².

Ähnliche fragen