[UPDATE] @Karl-Heinz - Trim_TestSubject

03/12/2008 - 22:14 von Hermann Hippen | Report spam
Moin Moin :-),

http://kh-rademacher.de/4d/Trim_Tes...clude.html

Hier auch etwas aufgeràumt :-) Wenn du mal;-)

8<-[ Trim_TestSubject ]-->8
Procedure Trim_TestSubject (Message: TStringlist; IsEmail: Boolean);
Var i : Integer;
Begin
i := 0;
With Message Do Repeat
I := I + 1;
If Pos('Subject: ',Strings[i]) = 1 Then
Begin
Strings[i]:=Copy(Strings[i],1,9)+TrimLeft(Copy(Strings[i],10,Length(Strings[i])));
Exit;
End;
Until (Strings[i] = '');
End;
8<-->8

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

Lesen sie die antworten

#1 Karl-Heinz Rademacher
04/12/2008 - 02:12 | Warnen spam
Hallo Hermann,

Hermann Hippen schrieb:
http://kh-rademacher.de/4d/Trim_Tes...clude.html

Hier auch etwas aufgeràumt :-) Wenn du mal;-)



Meine Güte, da ist ja bald nichts mehr da. :-)

Update done, Danke! :-)


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

Ähnliche fragen