Scrollbars:=ssVertical;
Und außerdem kann der garkeinen Channel joinen, der jetzt z.b. inner ini steht, weil:
Delphi-Quellcode:
try
irc.Connect;
irc.Join('
#engels-krieger');
except
memo1.Lines.Add('
Verbinden fehlgeschlagen. Bitte überpfüfen Sie die Einstellungen.')
end;
Besser wäre da
Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
var ini: TIniFile;
begin
ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+'
einstellungen.ini');
[...]
try
irc.Connect;
irc.Join(ini.ReadString('
einstellungen','
channel','
'));
ini.free;
except
memo1.Lines.Add('
Verbinden fehlgeschlagen. Bitte überpfüfen Sie die Einstellungen.')
end;
Ja, das geht bestimmt auch anders (ini als gloabe variable und dann bei OnCreate ini:=TIniFile.create(ExtractFilePath(ParamStr(0))+ 'einstellungen.ini'); das machen, war mir aber nich ganz sicher und da hab ich das eben so reingeschrieben
Wollt ja auch nur zeigen, dass er den Channel nicht richtig aus der ini datei ausliest...
Ah mir viel grad ein, noch einfacher wäre:
irc.Join(Edit3.Text);
Naja, die guten Ideen kommen immer zuletzt
