[Delphi] Zmiana wielkości liter zapisywanych do pliku

0

Witam

Mój kod:

 
procedure TForm1.Button2Click(Sender: TObject);
 
begin
  aList:= TStringList.Create;
 
  aList.Add('m600=' + Edit1.Text);
  aList.Add('m750=' + Edit2.Text);
  aList.Add('m500=' + Edit3.Text);
 
  aList.SaveToFile('plik.odt');
  aList.Free;
end;

Pytanie: czy można ustalić rozmiar czcionki, jaką zapisuje się tekst do pliku ? Tzn. otwierając ten plik czcionka ma rozmiar 10, a chciałbym by standardowo miała rozmiar np 20. ?

Z góry dziękuje :)

0

To sobie ustaw rozmiar na 20 w kontrolkach do których wczytujesz dane. :)

0

divisible: format zwykłego pliku tekstowego nie przechowa rozmiaru czcionki, możesz go zapidać
na przykład w pierwszej lini, a później w pętli z ComponentCount i sprawdzając czy Components
ma classType TEdit ustawić na tę czcionkę. Oczywiście wczytując z pliku rozmiar Edit.Font.Size,
powinieneś zweryfikowac na przykład przez procedurę Val czy wczytana linijka tekstu - to liczba
calkowita, a jeżeli chcesz zapisywać sformatowany tekst to raczej w formacie RTF i używając do
tego komponentu RichEdit z zakładki Win32. I formatowanie zapisze się jeżeli PlainText = False.

1 użytkowników online, w tym zalogowanych: 0, gości: 1