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