Skocz do zawartości


Error 26: Type mismatch.


1 odpowiedź w tym temacie

#1 devsiok

    Nowy na forum

  • Użytkownicy
  • 3 Postów:

Napisano śro, 22 lut 2017 - 07:32

Piszę sobie program, który sprawdza 2 tablice, i jeśli w pierwszej tablicy znajdują się podobne znaki co w drugiej z pierwszej tablicy są wyrzucane.
Program wygląda tak:

program czystki;
uses crt;

var aa : Array[1..5] of string;
bb : Array[1..3] of string;
x,y: byte;

begin
clrscr;

x:=1;
y:=1;

aa[1]:='abc';
aa[2]:='acv';
aa[3]:='wkw';
aa[4]:='klq';
aa[5]:='olq';

bb[1]:='abc';
bb[2]:='wkw';
bb[3]:='olq';

for x:=1 to 5 do
repeat
if aa[x] = bb[y] then aa[x]:=0;
y:=y+1;
until y=3;

writeln(aa[1]);
writeln(aa[2]);
writeln(aa[3]);
writeln(aa[4]);
writeln(aa[5]);
readln;
end.

Mniejsza o sens programu. Kiedy go kompiluję, wyskakuje mi Error 26: Type mismatch. w pętli for a mianowicie na końcu linii if aa[x] = bb[y] then aa[x]:=0; jak usuwam ; to znak ten pojawia się na początku następnej linii. Co robię nie tak ?

#2 devsiok

    Nowy na forum

  • Użytkownicy
  • 3 Postów:

Napisano śro, 22 lut 2017 - 07:42

Problem rozwiązany. Źle zdefiniowana zmienna. Do usunięcia.