[Update] 2 Updates in der Scriptwerkstatt

03/11/2008 - 08:17 von Hermann Hippen | Report spam
Moin Moin :-),

1) Das Basis_Modul_Include wurde erweitert:

- Neuer Type wurde definiert:

| BM_T_REF = Record
| Header : String;
| Line : Integer;
| Found : Boolean;
| End;

- Neue Funktion eingebaut:

| Function BM_Get_References (Message: TStringlist):BM_T_REF;
| // Rückgabewerte:
| // Result.Header = Der References Header
| // Result.Line = Position des References Headers im Header
| // Result.Found = True=Header gefunden, False=Header nicht gefunden

2) Das References_Header_falten_include, wurde dem upgedateten
Basis_Modul_include angepasst:

8<--[ Code
]>8
Procedure Falte_References ( Message : TStringlist; IsEmail : Boolean);
Var
j : Integer;
Ref : BM_T_REF;
Begin
If IsEmail Then Exit;
Ref := BM_Get_References(Message);
If Ref.Found = False Then Exit;
j := Pos('>', Ref.Header);
Message.Insert(Ref.Line, Copy(Ref.Header, 1,j));
Ref.Header := TrimLeft(Copy(Ref.Header, j + 1, BM_MaxInt));
While Ref.Header <> '' Do
Begin
Ref.Line := Ref.Line + 1;
j := Pos('>', Ref.Header);
Message.Insert(Ref.Line, BM_RepeatChar(' ', 12) + Copy(Ref.Header, 1,j));
Ref.Header := TrimLeft(Copy(Ref.Header, j + 1, BM_MaxInt));
End;
End;
8<->8

Um Kompatibilitàtsprobleme zu vermeiden, bitte immer das aktuellste
Basis_Modul_Include verwenden.

Die aktuellen Downloads stehen im Forum bereit.

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

Lesen sie die antworten

#1 Wolfgang Bauer
03/11/2008 - 08:48 | Warnen spam
Servus *Hermann*.
*Hermann Hippen* wrote:

Moin Moin :-),

1) Das Basis_Modul_Include wurde erweitert:

- Neuer Type wurde definiert:

2) Das References_Header_falten_include, wurde dem upgedateten
Basis_Modul_include angepasst:



Ich habe beide schon eingebaut. Hast Du noch Platz für ein weiteres
Danke sehr? Hier hast Du es.

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

Ähnliche fragen