[gelöst]Unerklärlicher random fehler

[Dragon]

Wiso krieg ich bei

Code: Alles auswählen

for i:= 0 to strtoint(Anzahl) do
           begin
             numbers := numbers + ' ' + inttostr(random(10)); //Das ist Zeile 45
           end;

Immer den fehler:
random.lpr(45,50) Fatal: Syntax error, "." expected but "(" found

hinter random

[theo]

Die Fehlerursache liegt wahrsch. nicht in dem gezeigten Code.

[Dragon]

Das wäre der komplette code

Code: Alles auswählen

library random;
 
{$mode objfpc}{$H+}
 
uses
  classes,
  sysutils,
  strutils,
  uPluginHeader in '..\uPluginHeader.pas';
var
  Irc: TIrcInterface;
 
function InitProc(uid: cardinal; version: Cardinal; IrcInterface: TIrcInterface; DoJoinProc: TDoJoinProc; DoPartProc: TDoPartProc; DoSayProc: TDoSayProc; DoRawProc: TDoRawProc; DoNickChangeProc : TDoNickChangeProc): Boolean;
begin
  Result := true;
  Irc := IrcInterface;
  Randomize;
end;
 
procedure MessageProc(AUser: PChar; AChannel: PChar; AMessage: PChar);
var
content, s                                 :string;
     i, trenner, atrenner, AVG             :integer;
     Min, Max, Anzahl, numbers             :string;
begin
     content := AMessage;
     if AnsiStartsText('!rnd ', Content) then
       begin
         s := Copy(Content, 6, length(Content));
         if s <> '' then
         begin
           //ermittelt minimalwert
           trenner := Pos('|', s);
           Min := Copy(s, 0, trenner-1);
           atrenner := trenner;
           //ermittelt max wert
           trenner := PosEx('|', s,atrenner);
           Max := copy(s, atrenner+1, trenner-1);
           atrenner := trenner;
           //ermittelt anzahl an zahlen
           trenner := PosEx('|', s,atrenner);
           Anzahl:= Copy(s, atrenner+1, trenner-1);
           for i:= 0 to strtoint(Anzahl) do
           begin
             numbers := numbers + ' ' +inttostr(random(10));
           end;
         end;
         writeln('Min:'+ Min + ' Max:' + Max + ' Anzahl:' + Anzahl);
         Say(Achannel, AUser + ': ' + Numbers)
       end;
end;
procedure JoinProc(AUser: PChar; AChannel: PChar);
begin
 
end;
procedure NickChangeProc(AOldNick : PChar; AHost : PChar; ANewNick : PChar);
begin
 
end;
procedure PartProc(AUser: PChar; AChannel: PChar);
begin
 
end;
 
function RawProc(ARaw: PChar):Boolean;
begin
 
end;
 
procedure InfoProc(out Name: PChar; out Version: Cardinal; out Description: PChar);
begin
  Name := 'rnd';
  Version := 1;
  Description := 'Erzeugt random numbers';
end;
 
exports InitProc, MessageProc, JoinProc, PartProc, RawProc, InfoProc, NickChangeProc;
 
begin
end.

Das ist ein Plugin für einen BOT den ich mal gefunden hatte, und auch schonmal verlinkt hatte in einem meiner vorherigen threads

[m.fuchs]

Die library heißt random und du versuchst in ihr die Funktion random aufzurufen. Das führt zu Problemen. Entweder benennst du die library um oder du änderst die Zeile in:

Code: Alles auswählen

numbers := numbers + ' ' +inttostr(system.random(10));

Dann weiß der Compiler, dass es hier um die Funktion (aus der Unit System) geht.

[Dragon]

@m.fuchs
Danke der Fehler tritt nun nicht mehr auf

[theo]

Was bedeutet gelößt?

[Dragon]

@theo
Das dieser fehler jetzt nicht mehr auftritt dafür ein anderer

Code: Alles auswählen

Irc.Say(Achannel, AUser + ': ' + PChar(numbers));

wirft: random.lpr(50,50) Error: Incompatible type for arg no. 2: Got "AnsiString", expected "PChar"

habs sogar schon über eine zweite Varable probiert
bei

Code: Alles auswählen

var pnumbers : pchar;
 
und im code:
pnumbers := PChar(numbers);
Irc.Say(Achannel, AUser + ': ' + pnumbers);

wirft aber den selben error

[Warf]

@theo
Das dieser fehler jetzt nicht mehr auftritt dafür ein anderer

Code: Alles auswählen

Irc.Say(Achannel, AUser + ': ' + PChar(numbers));

wirft: random.lpr(50,50) Error: Incompatible type for arg no. 2: Got "AnsiString", expected "PChar"

habs sogar schon über eine zweite Varable probiert
bei

Code: Alles auswählen

var pnumbers : pchar;
 
und im code:
pnumbers := PChar(numbers);
Irc.Say(Achannel, AUser + ': ' + pnumbers);

wirft aber den selben error

Die Konkatenation von Strings und Pchar ist auch wieder ein String versuche:

Code: Alles auswählen

Irc.Say(Achannel, PChar(AUser + ': ' + numbers));

[Dragon]

@warf
danke das frisst der kompiler jetzt.

[theo]

@theo
Das dieser fehler jetzt nicht mehr auftritt dafür ein anderer

Ich meinte das Wort "gelößt" gibt nicht. Es heißt "gelöst" oder "erledigt".

[Dragon]

@theo
Da steht doch gelöst *pfeift unaufällig*