Const in Function auslesen

[DarkItachi]

Hallöchen!

Kurz und knapp: Ich habe eine Unit.
In der Unit habe ich eine Function

Delphi-Quellcode:

function BerechneGehweg(Ort, Tempo: String): String

(Meine Form1 übergibt die Parameter!)

Außerdem hat die Unit noch Konstanten.

Delphi-Quellcode:

Also Orte: array[0..16] of string = ('Berlin', 'Kiel', 'Hamburg', 'Sachsen' //[usw.]....

Ich will in dieser einen Function nun Case Ort of verwenden..
Jedoch hat kann Case nicht mit String um...

Wenn Form1 nun 'Berlin' übergibt, dann will ich jetzt, dass Berlin den Wert 0 hat.
Wenn Form1 nun 'Kiel' übergibt, dann will ich jetzt, dass Kiel den Wert 1 hat.

Ich will halt nicht mit 17 if's arbeiten!
Ich will mal probieren, mit Case zu arbeiten!


(Die Form1 hat halt zwei Edits und diese werden in der Function übergeben!)

Wie kann ich nun Case mit dem Parameter 'Berlin' verwenden?

Thx

[Neutral General]

Hallo,

Delphi-Quellcode:

uses
  StrUtils;

const
  Orte: Array[0..16] of String = ('Berlin', 'Kiel', 'Hamburg', 'Sachsen',...);


function Blubb(Ort: String): Integer;
var index: Integer;
begin
  index := AnsiIndexStr(Ort,Orte); 
end;


Blubb('Koblenz'); // -1
Blubb('Hamburg'); // 2

Gruß
Neutral General

[DarkItachi]

Cool danke, dass ist genau das was ich gesucht habe! ^^


Edit: Koblenz wäre bei mir 14! ^^

Edit2: Müsste bei dieser Function nicht

Delphi-Quellcode:

Result:= AnsiIndexStr(Ort,Orte);

stehen?

[Christian Seehase]

Zitat:

Zitat von DarkItachi

Edit2: Müsste bei dieser Function nicht

Delphi-Quellcode:

Result:= AnsiIndexStr(Ort,Orte);

stehen?

Richtig, müsste es, dafür kannst Du dann auch die lokale Variable weglassen.

[DarkItachi]

Oh das habe ich noch nicht gewusst!
Kann man also: (Beispiel)

mit function1 auf eine Variable von Function2 zugreifen?
Ich kann es grad leider nicht testen

[Neutral General]

Zitat:

Zitat von Christian Seehase

Zitat:

Zitat von DarkItachi

Edit2: Müsste bei dieser Function nicht

Delphi-Quellcode:

Result:= AnsiIndexStr(Ort,Orte);

stehen?

Richtig, müsste es, dafür kannst Du dann auch die lokale Variable weglassen.

Eh ja.. ups :?

Also falls du das meinst: Du kannst nicht von Funktion 1 auf lokale Variablen von Funktion 2 zugreifen.

[DarkItachi]

ja mich hat das nur gewundert.
Case von Funktion 1 hätte doch gar keinen Zugriff auf der Variable Index von Funktion 2.
Oder sehe ich das falsch?

Dann müsste bei

Delphi-Quellcode:

Case Blubb('Berlin') of

ja immer -1 oder so rauskommen?

Oder ist ein nicht definierter Integer 0?

Ach keine Ahnung.

Auf jeden Fall ein dickes THX

[Neutral General]

Das Array mit den Konstanten musst du schon global definieren, wenn du es in mehreren Funktionen nutzen willst.

[DarkItachi]

das habe ich ja ^^

[Neutral General]

Dann ist doch alles ok oder?