Variable verarbeiten

[Cruentus]

Howdy allerseits!

Habe bisher nur Erfahrungen mit Bash sammeln können, bin dementsprechend noch unerfahren mit Delphi. Und zwar möchte ich eine Variable verarbeiten, weiß aber nicht, wie dies geht. In Bash konnte man die Variablen mit einem $-Zeichen vorangestellt verarbeiten.

Zum eigentlichen Problem...
Ich habe im Unterordner Archiv mehrere Textdateien, die nach einem festen Schema benannt sind: 1-A.txt, 1-B.txt, 1-C.txt, 2-A.txt, 2-B.txt, 2-C.txt, 3-A.text usw. in einer weiteren Datei (nennen wir sie default.txt) ist dann eine einzelne Zahl gespeichert, z.B. "2". Nun möchte ich die entsprechenden Dateien laden:

Code:

test.LoadFromFile('Archiv\')default.Strings[0]('-A.txt');

nun geht dies allerdings so nicht. Ich möchte aber die Variable in diesen Befehl einsetzen, damit, je nachdem welche Zahl in default.txt steht, die richtige Datei geladen wird, in diesem Falle die Datei 2-A.txt.

Ich hoffe, Ihr könnt mir helfen und ich danke Euch schon mal im Voraus für Eure Hilfe!

PS: TStringlisten sind übrigens schon initialisiert^^

[Dax]

Einfach die drei Strings mit + verketten

[jaenicke]

Delphi-Quellcode:

for i := 1 to 10 do
  for j := 65 to 90 do
  begin
    MyFileName := ExtractFilePath(ParamStr(0)) + 'Archiv\' + IntToStr(i) + '-' + Chr(j) + '.txt';
    if FileExists(MyFileName) then
      test.LoadFromFile(MyFileName);
  end;

Das als Beispiel wie du das per Schleife machen kannst.

[DeddyH]

Oder etwas verständlicher:

Delphi-Quellcode:

for i := 1 to 10 do
  for j := 'A' to 'Z' do
  begin
    MyFileName := ExtractFilePath(ParamStr(0)) + 'Archiv\' + IntToStr(i) + '-' + j + '.txt';
    if FileExists(MyFileName) then
      test.LoadFromFile(MyFileName);
  end;

Dann muss j allerdings vom Typ AnsiChar und nicht integer sein.

[Cruentus]

Hey danke!

Hat funktioniert, zumindest ist die Fehlermeldung verschwunden^^ Sollte es wider aller Erwartungen und Wahrscheinlichkeit doch nicht funktionieren, melde ich mich zurück

Danke schön!