Problem mit zeilen umbruch

[Gigant02]

hallo

also ich habe ein kleines problem wo ich nicht weiter komme und vielleicht einen kleinen denkanstoß brauche

nun gut das problem

wenn ich etwas drucken möchte und das alles schön auf eine A4 seite passen soll habe ich das problem das er übern rand druckt.
nun gut dachte ich mir da baue ich eine function wo er das einfach nach x zeichen einen zeilenumbruch macht

problem ist zur zeit das er einzeichen verschlugt und das er auch mitten in wort ein zeilen umbruch macht und das finde ich blöd

klar

also muss er von denn x zeichen solange zurück gehen bis das erste leerzeichen kommt und dann soll er erst ein zeilen umbruch machen

hmm ich weiss das geht mit pos aber ich bekomme das zur zeit irgendwie nicht auf die reie

achso das ganze muss auf delphi 5 laufen nicht auf delphi 7

Delphi-Quellcode:

function MLine(cString: String; nZeilenLaenge: Integer; Zeilennummer:integer) :String;
var cZeile  : String;
    cBuffer : String;
    nZeilen : integer;
    i,j     : integer;
    lOK     : Boolean;
begin

    lOK     := True;
    nZeilen := 1;
    j       := 1;

    for i := 1 to Length(cString) do begin

       cBuffer := SubStr(cString,i,2);

       if (cBuffer = #10#13) or ((j mod nZeilenlaenge) = 0) then begin
         nZeilen := nZeilen + 1;
         j   := 1;
         lOK := False;
       end else begin
         j := j+1;
       end;

       if (Zeilennummer = nZeilen) and (lOK) and (Copy(cString,i,1) <> #10) then begin
         cZeile := cZeile + copy(cString,i,1);
       end else if not(lOK) then begin
          lOK := True;
       end;

    end;

    Result  := cZeile;

end;

lg, gigant