Emails mit Lazarus und Synapse abrufen

[Privateer3000]

Zitat von DeddyH:

Ich würde es ungefähr so versuchen (ungetestet):

Delphi-Quellcode:

function findmsg(const AStrings: TStrings; const AText: String;
  CaseFlag: Boolean=False): Integer;
var
  i: integer;
begin
  Result := -1;
  for i := 0 to AStrings.Count - 1 do
    if (not CaseFlag and AnsiStartsText(AText, AStrings[i])) 
      or AnsiStartsStr(AText, AStrings[i]) then
      begin
        Result := i;
        break;
      end;
end;

Die AnsiStartsXXX-Funktionen sind in Delphi in der Unit StrUtils zu finden, ob es in Lazarus Entsprechungen gibt, weiß ich leider nicht.

Vielen Dank Deddy, diese Methode funktioniert und ist auch im Lazarus enthalten.
Danke!