Probleme mit Fonts

**Scottsman**

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:

zusammenfalten · markieren

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

Probleme mit Fonts

Probleme mit Fonts

Forumregeln