Hilfe beim Übersetzten von C in Delphi

[simjoh]

Hallo,

kann bitte jemand helfen:

Code in C:

Delphi-Quellcode:

unsigned int GetIndexToNextCharAfterSubString(const char* Buffer, const    char* SubString, const unsigned int MaxLen)
{   
  for (unsigned int I=0;I<(MaxLen-(unsigned int)(strlen(SubString)-1));I++)           
  {
   if (strlen(&Buffer[I])>=strlen(SubString)
     && Buffer[I]==SubString[0] 
   && strncmp(&Buffer[I],SubString,strlen(SubString))==0) 
      {
     return I+strlen(SubString);            
      }
  }

   Hier steht weiterer Code

}

Meine vermutete Übersetzung:

Delphi-Quellcode:

function GetIndexToNextCharAfterSubString(Buffer: PChar;  
SubString: PChar; MaxLen: integer): integer;
      
var i: integer;
begin
  for I:=0 to (MaxLen-length(SubString)-1) do
  begin
    if ((length(@Buffer[I])>=length(SubString) and 
        (Buffer[I]=SubString[0]) and (StrLComp(@Buffer[I],SubString,length(SubString))=0)) then
         begin
     result:= I+length(SubString);   
     end;
  end;
      Hier steht weiterer Code

end;

Die Fehlermeldung beim Compilieren in Delphi:

if ((length(@Buffer[I])>=... : Inkompatible Typen, 'String' und 'Pointer'.

Wer weiß Rat??
Danke.

[Corpsman]

Ist nur ne Vermutung aber las das @ vor Buffer weg.

2 Zeilen drüber hast du es ja auch nicht.

[r_kerber]

Und den Typ unsigned int würde ich mit UINT nach delphi übersetzen.

[Robert Marquardt]

Mit Length kommst du hier nicht weit. StrLen ist angesagt, da es sich um C strings handelt.

Delphi-Quellcode:

function GetIndexToNextCharAfterSubString(Buffer: PChar; SubString: PChar; MaxLen: UINT): UINT;
var
  I: UINT;
  SubLen, BufLen: UINT;
begin
  SubLen := StrLen(SubString);
  BufLen := StrLen(Buffer);
  for I := 0 to MaxLen - SubLen - 1 do
  begin
    // Vortest, falls in Buffer ein C string steht, der kuerzer als MaxLen ist
    // der originale Vortest ist idiotisch, da er dauernd strlen aufruft
    if (BufLen - I >= SubLen) and
      // Vortest, um weniger strncmp aufzurufen
      (Buffer[I] = SubString[0]) and 
      (StrLComp(@Buffer[I], SubString, SubLen) = 0) then
      begin
        Result := I + SubLen;
        Exit;
      end;
  end;


   // Hier steht weiterer Code
end;

Der Code ist sowohl in C als auch in Delphi unsicher, da er erstens weder Buffer noch SubString auf NULL/nil testet und nicht beruecksichtigt das SubLen >= MaxLen sein koennte und damit die Schleife Amok laeuft.

[QuickAndDirty]

@Robert Marquardt:
Vertragsprogrammierung löst das Problem.

[Robert Marquardt]

Es faellt mir gerade auf das der Vortest "if BufLen - I >= SubLen and" in der Schleife auch Unsinn ist. Da ist es doch effizienter die Schleife nur bis Min(BufLen, MaxLen) -SubLen - 1 laufen zu lassen.
Ich glaube es ist besser nur herauszubekommen was die Funktion macht und sie neu zu implementieren.

[Flocke]

Zitat von Robert Marquardt:

Ich glaube es ist besser nur herauszubekommen was die Funktion macht und sie neu zu implementieren.

Liefert einen Zeiger auf das erste Zeichen hinter der Fundstelle von SubString:

Delphi-Quellcode:

p := Pos(SubString, Buffer);
if p > 0 then
  Result := @Buffer[p + Length(SubString)];

oder alternativ mit Indizes:

Delphi-Quellcode:

p := Pos(SubString, Buffer);
if p > 0 then
  Result := p + Length(SubString);

[simjoh]

Hallo,

vielen Dank für die zahlreichen Rückmeldungen, die Fehlermeldung "inkompatible Typen" bei
StrLComp(@Buffer[I], SubString, SubLen) = 0) ist aber immer noch da. Was kann man da tun?

Danke.

[Klaus01]

Na, vielleicht verstehe ich es auch nicht,
aber Buffer[I] leifert doch nur einen Character zurück.

Im Funktionskopf hast Du Buffer als PChar deklatiert also als eine Zeichenkette die Nullterminierend ist.

Grüße
Klaus