Matematické Fórum

Skrytý text:
Třeba takto:
Na Form dát dvě mema (Memo1 a Memo2), dva Labely (Vstup, Vystup) a jeden button (Button1)
Poznámka: U Memo1 i Memo2 nastavit WordWrap na False a ScrollBars na Horizontal

a zde je procedura, která to vyřeší:
(předpokládá se, že v adresáři s programem máš soubor vstup.txt s tím textem)

procedure TForm1.Button1Click(Sender: TObject);
var i,j: Integer;
    s,sv: String;
begin
  Memo1.Lines.Clear; //vymazání Mema1
  Memo2.Lines.Clear; //vymazání Mema2
  Memo1.Lines.LoadFromFile('vstup.txt'); //do Mema1 se načte soubor vstup.txt
  for i := 0 to Memo1.Lines.Count-1 do //cyklus od 1.řádku (má index 0) do posledího řádku
  begin
    s := Memo1.Lines[i]; //do proměnné s se načte řádek i
    sv := ''; //pomocný string (výsledný řádek se nastaví na prázdný string)
    for j := 1 to Length(s) do //cyklus od 1.písmene řádku i do konce řádku i
      if (s[j]='a')or(s[j]='A') then //načte příslušné písmeno a když je A nebo a tak
        sv := sv+'^'+s[j]+'^' //před něj a za něj dá znak ^
      else
        sv := sv+s[j]; //jinak ho jenom opíše
    Memo2.Lines.Add(sv); //do Memo2 přidá upravený řádek
  end;
  Memo2.Lines.SaveToFile('vystup.txt'); //uloží Memo2 do výstupního souboru vystup.txt
end;