Przyrównanie zmiennych string

0

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

0

Po pierwsze podaj informacje o środowisku i kompilatorze, w którzym piszesz ten program; Po drugie - podaj przykładową zawartość pliku wejściowego oraz poprawną zawartość pliku wyjściowego, żeby było wiadomo co Twój program ma z tym plikiem zrobić;

Poza tym edytuj swój post i sformatuj kod, bo jest nieczytelny i bałaganiarski; No i wytłumacz sensownie to co chcesz zrobić, bo z powyższego opisu w sumie mało można się o tym problemie dowiedzieć; Jeśli tych rzeczy nie zrobisz, to wątek będzie wisieć bez odpowiedzi, bo nikomu nie chce się zgadywać o co chodzi;
____Jeśli o sam temat chodzi, to konstrukcja pętli operującej na plikach powinna wyglądać mniej więcej tak:

var
  tfInput, tfOutput: TextFile;
begin
  AssignFile(tfInput, 'C:\Input.txt');
  AssignFile(tfOutput, 'C:\Output.txt');
  Reset(tfInput);
  ReWrite(tfOutput);
  try
    while not EoF(tfInput) do
    begin
      { operacje na plikach }
    end;
  finally
    CloseFile(tfInput);
    CloseFile(tfOutput);
  end;
end.

Oczywiście zabezpieczenia błędów IO pomijam - o tym ewentualnie później; Najpierw sformatuj kod i opisz sensownie problem.

0

Dodam od siebie, że jeśli nie umiesz formatować sam, to użyj tego http://olesio.eu/jcf a poza tym na przyszłość właśnie doprecyzuj IDE. I powielanie niektórych słów w tagach jest zbędne. Poprawiłem. Wystarczy podawać język/IDE na ogół.

1 użytkowników online, w tym zalogowanych: 0, gości: 1