![]() |
Re: Zahlenfolge umformen?
Hey. Wahnsinn es funktioniert!! Habe mal ein komplett neues Formular angelegt und da ging es.
Kannst du mir bitte auch verraten wie ich eine buchstabenfolge mit sechs verschiedenen Buchstaben die Zahlen 0-5 zuordne? |
Re: Zahlenfolge umformen?
Im Prinzip hast Du ja schon eine Zuordnung.
Die Position in dem String. edit1.Text[1] Edit1.Text[2] usw. Oder Du nimmst Den Zahlenwert. wert:=StrToInt(Edit1.Text[1]); Grüße Klaus |
Re: Zahlenfolge umformen?
Ich meinte aber das jeden der 6 Strings (Also in meinen Fall Buchstaben) soll eine Zahl (Integer, richtig?)zugeordnet werden. Also zum Beispiel a-0, g-1, j-2, d-3, v-4, l-5
|
Re: Zahlenfolge umformen?
Zitat:
Angenommen Du hast einen String "agjdvi" Dann ist a auf der Position 1 g auf der Position 2 usw. Wenn Du dann von der Position 1 eine 1 abziehst hast Du die Zahl. Du mußt Dir dann nur den Originalstring merken, sonst weißt Du nicht welche Position der Buchstabe zu Anfang in Deinem String hatte. Um die Position eines bestimmten Buchstaben in einem String zu ermitteln dazu kannst Du die Funktion pos benutzen. Wenn Du nicht weißt wie Du diese Funktion benutzen kannst, in der Hilfe ist sie recht gut erklärt, es sollte sogar ein Beispiel dabei sein. Grüße Klaus |
Re: Zahlenfolge umformen?
Danke. Habe das mit den Umwandeln jetzt hinbekommen.
Was muss eigentlich an dem oberen Quelltext geändert werden wenn die Zahlenfolge zusätzlich auch anders herum, umgeformt werden soll? also zum Beispiel aus der Folge 012345, die Folge 543210 machen und von dieser wiederum alle Umformungen erstellen? |
Re: Zahlenfolge umformen?
Du läufst mit der for Schleife von hinten durch den String.
sollte in etwas so gehen.
Delphi-Quellcode:
Grüße
for i:=length(Edit1.Text) downto 1 do
begin DummyString:=DummyString+Edit1.Text[i]; end; Klaus |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:17 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz