String, Integer-inkompatible Type. Wo liegt mein Fehler?

[gathering]

Delphi-Quellcode:

program Gehalt1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TGehaltsliste = RECORD          //Record definieren
    name : STRING[20];
    vorname : STRING[20];
    gebdatum : STRING[10];
    gehalt : STRING[10];

  END;


var
  person, person1, person2, person3 : TGehaltsliste;
  fp: File OF TGehaltsliste;



FUNCTION MaxGehalt(dateiname:string):STRING;
  VAR gehalt:INTEGER; fp:FILE OF TGehaltsliste; person:TGehaltsliste;
  BEGIN
    gehalt:=0;
    ASSIGN(fp, dateiname);
    Reset(fp);
    While NOT Eof(fp) DO Begin
      Read(fp, person);
      If person.gehalt > gehalt THEN gehalt:=person.gehalt; //In dieser Zeile zeigt er mir beim compilen den Fehler an
    End;
    Close(fp);
    result:=gehalt;
    writeln('höchstes Gehalt bezieht:');
    writeln(fp, gehalt);
  END;

begin
  person1.name:= 'Meier';
  person1.vorname:= 'Johan';
  person1.gebdatum:= '11.11.1966';
  person1.gehalt:= '2500';

  person2.name:= Müller;
  person2.gebdatum:= '12.09.1976';
  person2.gehalt:= '2100';

  person3.name:= 'Blöd';
  person3.vorname:= 'Hein';
  person3.gebdatum:= '07.03.1980';
  person3.gehalt:= '2700';

  writeln (person1.vorname, ' ', person1.name, ' ', person1.gebdatum, ' ', person1.gehalt);
  writeln (person2.vorname, ' ', person2.name, ' ', person2.gebdatum, ' ', person2.gehalt);
  writeln (person3.vorname, ' ', person3.name, ' ', person3.gebdatum, ' ', person3.gehalt);

  assign (fp, 'gehaltsliste1.txt');   //Variable mit Dateiname verbinden
  rewrite (fp);                          //Datei wird immer wieder neu angelegt


  write (fp, person1);
  write (fp, person2);
  write (fp, person3);
  write (fp, inttostr(person.gehalt));
  closefile (fp);           //Schließen der Datei
                         

  
  readln;

end.

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[dominikkv]

schön... :stupid:
gibts da noch ne frage dazu ?!?
und könntest du bitte den code in tags einschließen?

edit: ...und herzlich willkommen bei Delphi-Praxis :party:

[mkinzler]

Wie der Fehler ja schon sagst, du vergleichst Äpfel mit Birenen bzw string mit integer:

Delphi-Quellcode:

 If person.gehalt > gehalt THEN

[himitsu]

erstmal herzlich Willkommen.


1. Was hat dieses mit Datenbanken zu tun`? (falsches Unterforum)

2. bitte [delphi]-Tags verwenden

2,5. so lange Codeabschnitte, oder ganze Programme bitte als Anhang.
und nur die "wichtigen" Abschnitte im Post

3. was ist falsch?
ohne Fehlerbeschreibung/Frage können wir auch nur Hellsehen.

[Mazel]

Hallo,

erstmal 2 Dinge:
Herzlich willkommen in der DP :wink:

Nutze bitte die Delphi-Tags (Delphi-Code-Button)

Nun zum Problem, was mir gleich aufgefallen ist, dass gehalt INTEGER ist aber person.gehalt ein String. Um das zu vergleichen musst du StrToInt(person.gehalt) verwenden.
Ob noch mehr Fehler enthalten sind, habe ich jetzt nicht auf anhib gesehen, ist auch zun Teil nicht einfach weil keine Delphi-Tags.

Btw: Mit Datenbank hat dieses Problem nicht viel zu tun.

[DP-Maintenance]

Dieses Thema wurde von "Jelly" von "Datenbanken" nach "Object-Pascal / Delphi-Language" verschoben.
Stimmt.... Gehört nicht in Datenbanken