Commandsmaker

[xZise]

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;