Inkompatible Typen

[hw24]

Hallo Kollegen,
ich hoffe, dass ich hier richtig bin (ansonsten bitte ins richtige Forum verschieben, Mod)

Ich verzweifle gerade an einer 3rd Party Komponente "TRichView". Ich selbst benutze dieses Dings nicht, muss sie aber ins Projekt einbinden.
Bei jedem Build beglückt mich meine Asbach-Uralt-Umgebung D6/SP2 mit:
[Fehler] Inkompatible Typen

Was ist hier inkompatibel ? Ich sehe da nichts schlimmes. Aber ihr kennt das ja. Wald ... Bäume ...

Delphi-Quellcode:

(Verkürzter Source aus dem 3rd-Party Original-Source)
var 
  sourceStrPtr: PChar;
  sourceStrPtrLen, max, no: Integer;
  str: array[0..1000] of char;
begin
  sourceStrPtr := PChar([i]{TRichView.LineInfo}[/i](lines.Strings[no]);
  strForAdd := str;
  sourceStrPtrLen := StrLen(sourceStrPtr);
  if max=0 then max := 1;
  StrLCopy(strForAdd, sourceStrPtr,max);
  sourceStrPtr := @(sourceStrPtr[max]); // Hier krachts. Inkompatible Typen.
end;

Vielleicht hat einer von euch einen Tip für mich ?

Danke, Harry

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[Teekeks]

Wenn ich das richtig sehe machst du das hier:
apchar:=@astring; richtig wäre:
apchar:=PChar(astring[1]); Edit:
Also mach das hier:
sourceStrPtr := PChar(sourceStrPtr[max,1]);

[hw24]

Zitat von Teekeks:

Wenn ich das richtig sehe machst du das hier:
apchar:=@astring; richtig wäre:
apchar:=PChar(astring[1]); Edit:
Also mach das hier:
sourceStrPtr := PChar(sourceStrPtr[max,1]);

Hat fast gefluppt, aber jetzt kommt
[Fehler] RichView.pas(857): Array-Typ erforderlich

// sourceStrPtr := @(sourceStrPtr[max]);
sourceStrPtr := PChar(sourceStrPtr[max,1])

?

[mkinzler]

Lass mal die 1 weg

[Teekeks]

aber muss ein pchar nicht auf das erste Zeichen zeigen?
edit:
Nochmal angeguckt, nu isses klar

[hw24]

// sourceStrPtr := @(sourceStrPtr[max]);
// sourceStrPtr := PChar(sourceStrPtr[max,1])
sourceStrPtr := PChar(sourceStrPtr[max])

Vielen Dank an euch beide.
Könnte funktionionieren.
Im Moment kann ich leider nicht compilieren, weil einer lieben meiner Kollegen im projekt etwas ziemlich verbaselt hat.
Ich melde mich wieder.
Danke !

Gruss, Harry

[hw24]

Passt!
Super. Danke euch.

Gruss Harry