Zitat von
PhilmacFLy:
Delphi-Quellcode:
procedure Tform2.GenerateNicks(Linend: Integer);
var
LineEnd, Nickoffset, Channeloffset: Integer;
Nicks: string;
begin
ChannelOffset := Pos('#', Memo2.Lines.Text);
NickOffset := PosEx(' ', Memo2.Lines.Text, ChannelOffset) + 1;
Nicks := Copy(Memo2.Lines.Text, NickOffset, LineEnd - NickOffset);
end;
procedure Tform2.list;
var
str: String;
i: Integer;
begin
for i := 0 to Memo2.Lines.Count - 1 do
if Copy(Memo2.Lines[i]) = '353' then //Hier kommt der Fehler
GenerateNicks(Memo2.Lines[i]);
end;
[DCC Fehler] tool_chat.pas(74): E2010 Inkompatible Typen: 'Integer' und 'string'
Naja Memo2.Lines[i] ist ein String (und zwar der der Zeile). GenerateNicks selber will aber einen Integer, was ich aber nicht so vorgesehen habe. GenerateNicks sollte einen String bekommen! Und zwar diesen: "353 Testnick = #Königlich-Preußisches-Inf.Reg :Testnick ~PhilmacFLy"
Das heißt du brauchst "LineEnd" nicht, weil das ja dann Length(<Zeilentext>) ist.
MfG
xZise