Commandsmaker
Mit diesem Programm kann man einfach Zeilen für das Chatprogramm
x-Chat schreiben!
Der Befehl zum Laden, wird in den oberen Editfeld angezeigt!
Der Test ist sehr spärlich Kommentiert! Das wird sich noch bessern!
Da ich die
Unit OwnAdds benutzte hier der Teil, denn ich daraus benutzte:
Delphi-Quellcode:
// Mit dieser Funktion kann man einen Teil eines Strings herausbekommen ...
function SubString(MainString: string; sPos, ePos: Integer): string;
var i: Integer;
begin
if (sPos > 0) and (sPos < Length(MainString) - 1) and (ePos > sPos) and (ePos <= Length(MainString)) then begin
for i := sPos to ePos do
Result := Result + MainString[i];
end else
Result := '';
end;