All pastes #11220 Raw Edit

Someone

public text v1 · immutable
#11220 ·published 2005-05-08 09:37 UTC
rendered paste body
procedure TFormProhlizet.BtEraseClick(Sender: TObject);
begin
    for x := i to 99 do begin
        Tpacient[i] = Tpacient [i+1];
    end;

    pacos[100].Jmeno := "";
    pacos[100].Prijmeni := "";
    pacos[100].Pokoj := "";
    pacos[100].Leky := "";
    pacos[100].Doba := "";

end;

[Error] Unit3.pas(86): '(' expected but '[' found