Autor Beitrag
Aswan
Hält's aus hier
Beiträge: 2



BeitragVerfasst: Sa 23.02.08 14:48 
Aloa

Ich habe zurzeit ein kleines Problem mit einer Delphi-Hausaufgabe:
Eine dreistellige Zahl soll in ein Edit-Feld eingegeben und anschließend einmal die größtmögliche und die kleinstmögliche Zahl aus ihr gebildet werden. Das ist natürlich recht leicht, allerdings muss ich erst einmal diese dreistellige Zahl in drei einzelne Variablen aufsplitten und daran verzweifele ich gerade... Eigentlich wollte ich drei seperate Editfelder erstellen, aber das wurde in der Aufgabenstellung ausgeschlossen, es muss ein einzelnes Feld sein. Hat jemand ne Ahnung, wie genau ich es hinbekomme, die Zahl in die Variablen h (Hunderter), z (Zehner) und e (Einer) aufzuteilen?
Gausi
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 8554
Erhaltene Danke: 481

Windows 7, Windows 10
D7 PE, Delphi XE3 Prof, Delphi 10.3 CE
BeitragVerfasst: Sa 23.02.08 14:55 
Hallo und :welcome: in der Entwickler-Ecke!

In dem Edit steht ja eigentlich keine Zahl, sondern ein String. Dieser String besteht aus drei Zeichen, wenn der User alles richtig gemacht hat. Auf diese einzelnen Zeichen kann man dann z.B. so zugreifen, um die Hunderter, Zehner und Einer zu bestimmen:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
var h, z, e: Integer;
begin
  if length(Edit1.Text) <> 3 then
    ShowMessage('Falsche Eingabe')
  else
  begin
    h := StrToInt(Edit1.Text[1]);
    z := StrToInt(Edit1.Text[2]);
    z := StrToInt(Edit1.Text[3]);
  end;
end;

_________________
We are, we were and will not be.
Marc.
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1876
Erhaltene Danke: 129

Win 8.1, Xubuntu 15.10

BeitragVerfasst: Sa 23.02.08 14:56 
Hi!
Da es sich bei der Zahl im Edit-Feld um einen String handelt, kannst du auf die einzelnen Zeichen via String[Index] zugreifen.
Ich denke, der Tipp sollte bereits reichen.

Grüße
Marc

edit: einen Tick zu langsam
Aswan Threadstarter
Hält's aus hier
Beiträge: 2



BeitragVerfasst: Sa 23.02.08 15:01 
Dankesehr, klappt hervorragend. :)