Chcę usunąć z pliku .txt spacje położone obok siebie. Napisałam następujący kod:
Reset(plik);
Read(plik,znak1);
calyplik:=znak1;
while not Eof(plik) do
begin
Read(plik,znak2);
if (znak1=#32) and (znak2=#32) then znak2:=#0; //32 w ASCII to spacja, a 0 to null
calyplik:=calyplik+znak2;
if znak2=#0 then znak2:=#32;
znak1:=znak2;
end;
Memo1.Text:=calyplik;
znak1, znak2 to zmienne typu char
calyplik to zmienna typu string
I wygląda to tak, że w Memo pojawia się tylko pierwszy ciąg znaków oraz pojedyncza spacja i na tym koniec. Dlaczego nie widać kolejnych 'wyrazów'?