War mir schon klar, aber ich meine nur das dein Ergebis von oben mir nichts brachte!
O
bwohl hier ein Fehler drin ist!
Zitat von
gmarts:
Delphi-Quellcode:
var i:integer;
uses kubmstrings;
procedure bla;
var i:integer;
basis,exponent:string;
begin
s:='1';
basis:='365';
exponent:='365'
for i:=1 to exponent do
begin
s:=multstr(s,basis);
end;
result:=s;
end;
exponent ist ein string und dann kannst du ihn nicht so einfach i zuweisen! *g*