fastphpalarmingautosfxaysaliacalllibchecksum-toolscolormanagercryptochatcurrency_converterdecoderdelphiutilsdistributeddpcstudiodpg2fileformatsfilter_foundryforestgridgameht46f47_simulatorindexer_suiteipe_artfile_utilsjavautilsjumperlightgamelogviewermusikboxmystic_houseoidconverteroidinfo_apioidinfo_new_designoidpluspersonal-webbasephp_antispamphp_clientchallengephp_guestbookphp_utilsplumbersprependrecyclebinunitsimple_log_eventsokobanspacemissionstackmanuserdetect2uuid_mac_utilsvgwhoisvnagwebcounterwinbugtrackeryt_downloader

BlueGreycalmElegant

Català-Valencià – Catalan中文 – Chinese (Simplified)中文 – Chinese (Traditional)Česky – CzechDansk – DanishNederlands – DutchEnglish – EnglishSuomi – FinnishFrançais – FrenchDeutsch – Germanעברית – Hebrewहिंदी – HindiMagyar – HungarianBahasa Indonesia – IndonesianItaliano – Italian日本語 – Japanese한국어 – KoreanМакедонски – Macedonianमराठी – MarathiNorsk – NorwegianPolski – PolishPortuguês – PortuguesePortuguês – Portuguese (Brazil)Русский – RussianSlovenčina – SlovakSlovenščina – SlovenianEspañol – SpanishSvenska – SwedishTürkçe – TurkishУкраїнська – UkrainianOëzbekcha – Uzbek

Compare Revisions

• This comparison shows the changes necessary to convert path

  → / @ 76

  → / @ 77

  ↔ Reverse comparison

• Compare Path:	Rev

  With Path:	Rev

Regard whitespace Rev 76 → Rev 77

/trunk/EditorMain.pas
300,7 → 300,20
begin
SynEdit1.Lines.Strings[i] := TrimRight(SynEdit1.Lines.Strings[i]);
end;
(*
while (SynEdit1.Lines.Count > 0) and (SynEdit1.Lines.Strings[SynEdit1.Lines.Count-1] = '') do
begin
SynEdit1.Lines.Delete(SynEdit1.Lines.Count-1);
end;
if SynEdit1.SelStart > Length(SynEdit1.Text)-1 then
begin
// TODO: This code does not work...
SynEdit1.SelStart := Length(SynEdit1.Text)-1;
SynEdit1.SelEnd := Length(SynEdit1.Text)-1;
end;
*)
end;
procedure TForm1.ActionSaveExecute(Sender: TObject);
begin
1052,11 → 1065,30
procedure TForm1.SaveToFile(filename: string);
var
sl: TStringList;
fil: TextFile;
i: Integer;
begin
sl := TStringList.Create;
try
sl.Assign(SynEdit1.Lines);
sl.SaveToFile(filename); // Save without BOM!
sl.Assign(SynEdit1.Lines); // Save without BOM
while (sl.Count > 0) and (sl.Strings[sl.Count-1] = '') do
begin
sl.Delete(sl.Count-1);
end;
(*
sl.TrailingLineBreak := false; // requires Delphi 10.1
sl.SaveToFile(filename);
*)
// This code does the same, but works with older versions of Delphi, too.
AssignFile(fil, filename);
Rewrite(fil);
for i := 0 to sl.Count-2 do
writeln(fil, sl.Strings[i]);
write(fil, sl.Strings[sl.Count-1]);
CloseFile(fil);
finally
sl.Free;
end;