hallo!
ich möchte in einem memo feld eine text-file auf machen (um sie nachher zu bearbeiten), und dann beim aufmachen will ich direkt die Blanks am anfang der zeilen löschen!das problem ist, dass ich bei verschieden Schriftarten (wie Courier, oder Lucida, das heisst alle schriftarten, wo alle Buchstaben gleichbreit sind) eine
Access-Violation bekomme!!
hier ist meine prozedur welche das problem macht:
Delphi-Quellcode:
procedure del_space(
var memo : TMemo);
var temp :
string;
i : integer;
begin
for i := 0
to memo.Lines.Count -2
do
begin
temp := memo.Lines[i];
while (temp[1] = '
')
do delete(temp,1,1);
{aus dieser Schleife kommt die Access-Violation}
memo.Lines[i] := temp;
end;
end;
ich würde mich freuen so schnell wie möglich eine Antwort zu bekommen!!
Danke im vorraus!!
Alain