Body start på mail

skal du ikke == istedet for =

også hedder det vist også chr(13) & chr(10)

istedet for \'chr(13).chr(10)\'

if copy(memo1.lines[i],0,2) = #10#13 then

Det er næsten rigtigt:

if Copy(Memo1.Lines[i], 0, 2) = #10#13 then

Det var naturligvis ikke en kommentar til dit svar, martinlind ;-)

ahhh, nu fatter jeg hvad du vil... carriage return, line feed...

ahhh...

pstric >> Damm, du må få dig en ADSL line *G*

Virker ikke ...

for i:=0 to form1.memo1.lines.count-1 do
begin
        if copy(form1.memo1.lines[i],0,5)=\'FROM:\' then
                fra:=copy(form1.memo1.lines[i],7,99);

        if bodyfound=1 then
        body:=body+\'_-_\'+form1.memo1.lines[i];

        if Copy(form1.Memo1.Lines[i], 0, 2) = #10#13 then
        bodyfound:=1;

        end;

form1.memo2.lines.add(\'(\'+fra+\') \'+body);

Og ??

Hvis det er strenge du skal finde, så prøv pos()

if Pos(#10#13,aStrx) = 1 then
begin
end;
if Pos(\'FROM:\',aStrx) = <> 0 then
begin
end;

FROM virker fint nok..

if Pos(#10#13,form1.memo1.lines[i]) = 1 then
        begin
                bodyfound:=1;
        end;

Den virker ikke, bodyfound bliver ikke ændret til 1

Fandt fejlen...
memo starter ved 0, ikke 1 :)

Nu er det sådan, at du aldrig vil finde #13#10 i linjerne i en memo, da de automatisk vil blive fortolket som et linjeskift (meget naturligt) og memo-dimsen vil derfor bare fortsætte på næste linje.

Så hvis du vil undersøge, om de to første karakterer i en linje er #13#10, så skal du ganske simpelt bare undersøge om linjen er tom!

if (form1.memo1.lines[i] = \'\') then
begin
  bodyfound := 1;
end;

eller:

if (length(form1.memo1.lines[i]) = 0) then
begin
  bodyfound := 1;
end;

Hmmm - betyder det så, at jeg ikke har ret?? Træls! Nåh ja, man bliver jo klogere hver dag!

Når du siger, at memo starter ved 0, hvad mener du så. I det eksempel ovenover begynder du jo ved 0!

hmm, den trigger for tidligt ...

faktisk allerede ved linje 2 :(

Torbenkoch: Takker :)