Inkompatible typen String und integer

[DeddyH]

Naja, ich würde das ähnlich machen, aber ob er damit bei seinem Lehrer durchkäme... (merkt der doch sofort, dass da externe Hilfe im Spiel ist) ;)

[FAlter]

Hi,

Zitat:

Zitat von NielsHillemeyer

aber mein Lehrer besteht auf das procedure....

(Hervorhebung von mir)

:oops: Das Wort habe ich glattweg übersehen. Naja, dann muss er es wohl seinem Wissensstand entsprechend machen...

[ot]Zum Thema Lehrer merkt was:
Jemand aus meinem Infokurs wollte mal seinen Speicher nicht freigeben, weil er meinte, der Lehrer würde es merken, da er (der Lehrer) es ihnen nicht beigebracht und er (der Schüler) es daher eigentlich nicth wissen könnte. Schließlich hat er es doch getan, und gemeinsam mit meinem anderen Banknachbar (ich habe zwei ;) ), was aber nicht auffiel, und natürlich mir ;) , war er der einzige, der keinen Punkt abgezogen bekommen hat :mrgreen: Der Lehrer hat bei der Auswertung dann noch erzählt, er hätte doch gesagt, dass man Speicher wieder freigeben muss und dass das mit Dispose geht.
Überzeugt habe ich ihn dadurch, dass ich selbst ja mit OOP gearbeitet habe und selbst gar Dispose nehme und es deshalb kaum auffallen kann.[/ot]

Mfg
FAlter

[dor557]

Ich habe nun Folgendes erstellt :

Delphi-Quellcode:

procedure TForm1.btn_UmrechnenClick(Sender: TObject);

function Umwandeln_und_Addieren(z1,z2,z3,z4,z5,z6,z7,z8:string):String;
begin
  result:=Inttostr(Strtoint(z1)*128+
                Strtoint(z2)*64+
                Strtoint(z3)*32+
                Strtoint(z4)*16+
                Strtoint(z5)*8+
                Strtoint(z6)*4+
                Strtoint(z7)*2+
                Strtoint(z8)*1);
end;

Var
  z1,z2,z3,z4,z5,z6,z7,z8:string;
  Erg:Integer;
begin
  z1:=Edt128.Text;
  z2:=Edt64.Text;
  z3:=Edt32.Text;
  z4:=Edt16.Text;
  z5:=Edt8.Text;
  z6:=Edt4.Text;
  z7:=Edt2.Text;
  z8:=Edt1.Text;
//  erg:= Umwandeln_und_addieren(z1,z2,z3,z4,z5,z6,z7,z8);
  Label1.Caption:=Umwandeln_und_addieren(z1,z2,z3,z4,z5,z6,z7,z8);


end;

wenn ich da in Jedem Feld 1 eingebe bekomme ich 255 !

mache ich den wert 1010 am schluss und den rest mit 0 bekomme ich 10 heraus !

geht !
oder habe ich da jetzt was vergessen ?

Das das orrekt herauskommt sieht man Hier !

Gruss Sascha