mhh... ist doch alles nicht ganz einfach....
Der Buffer soll sich ja auch noch vergössern, sobald er voll ist. Was halted ihr hiervon:
Delphi-Quellcode:
var buffer: string;
bufcur,bufend: PChar;
begin
setlength(buffer, 31);
bufcur :=@buffer[0];
bufend :=@buffer[30];
while someCondition do
begin
if bufcur =bufend then
begin
setlength(buffer, length(buffer)+10);
bufend :=@buffer[length(buffer)-1];
bufcur :=@buffer[length(buffer)-11];
end;
bufcur^ :='A';
inc(bufcur);
end;
end;
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.
Have a lot of fun!