Witam.
Mam pewien problem z porównaniem ze sobą dwóch zmiennych string. Samo zadanie polega na wczytaniu kodu w języku C oraz dopisanie do ważniejszych wyrażeń oznaczeń w języku html (czyli pokolorować, pogrubić etc. )
Sam kod wygląda tak:
program pliki_tekstowe;
uses strings, crt;
procedure pokaz(nazwa: string);
var plik: text;
plik2: text;
c: char;
slowo: string;
int:string;
begin
assign(plik,nazwa);
assign(plik2,'pomoc.txt');
reset(plik);
rewrite(plik2);
if eof(plik) then writeln('Plik ', nazwa, ' jest pusty')
else
begin
repeat
read(plik,c);
if (c<>' ') then slowo:=slowo + c;
if (slowo='int') then write(plik2, slowo);
if (c=' ') then slowo:=' ';
write(c);
until eof(plik);
end;
end;
var nazwa: string;
begin
write('Podaj nazwe pliku, ktorego zawartosc mam wczytac: ');
readln(nazwa);
writeln('Zawartosc pliku ',nazwa,':');
pokaz(nazwa);
writeln('Koniec pliku.');
readln;
end.
Z samym pomysłem na program nie mam problemów - jedynie z momentem kiedy porównuje stworzone słowo z danym prze ze mnie słowem. O dziwo stworzone słowo ZAWSZE według programu jest mniejsze od 'int'. Za bardzo nie wiem w czym problem.
Gdy ustawię wartość logiczną na mniejszą lub równą, w drugim pliku ewidentnie zapisuje tak jak powinien, czyli: "iinint int" itd. Ale nie wiem dlaczego nie chce mi porównać tych stringów. Ktoś ma jakiś pomysł?
zamiana znacznika <ort> na <code class="delphi">
- @furious programming