Probleme mit Fonts

[ibp]

willkommen,

versuch es mal so

Delphi-Quellcode:

procedure del_space(var memo : TMemo);
  var temp : string;
          i : integer;
begin
  for i := 0 to memo1.Lines.Count -1 do begin
    temp := memo1.Lines[i];
    if temp[1]=' ' then begin
      delete(temp,1,1);
      memo1.Lines[i] := temp;
    end
  end
end;