Hi,
ich bin ein ziemlicher Delphi Neuling, wir haben gerade in Informatik damit begonnen.
Nun hab ich folgende Frage:
Aufgabe ist es, einen beliebigen string zu teilen, und die hälfte auszugeben, ich hab das folgendermaßen gelöst:
Delphi-Quellcode:
procedure TProzeduren.halbieren_buttonClick(Sender: TObject);
begin
text1:=text1_edit.Text;
text2:=text2_edit.Text;
laenge1:=Length(text1);
if odd(laenge1)= true
then
begin
dec(laenge1);
laenge1extended:=laenge1;
laenge1extended:=laenge1extended/2;
end
else
begin
laenge1extended:=laenge1;
laenge1extended:=laenge1extended/2;
end;
laenge1extended:=Integer(laenge1extended);
text1:=copy(text1,0,laenge1extended);
ausgabe1_label.Caption:=text1;
end;
Mir wird dann beim Compiliern der fehler ausgegeben, dass inkompatible Datentypen am Werk wären, durch die if abfrage ist aber ja sichergestellt, dass beim Teilen eine integer Zahl rauskommt.
Ich würd mich freuen wenn ich einen andren Lösungsvorschlag hättet oder meinen Fehler finden würdet.