Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Variable verarbeiten (https://www.delphipraxis.net/132957-variable-verarbeiten.html)

Cruentus 22. Apr 2009 19:15


Variable verarbeiten
 
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 22. Apr 2009 19:17

Re: Variable verarbeiten
 
Einfach die drei Strings mit + verketten ;)

jaenicke 22. Apr 2009 19:21

Re: Variable verarbeiten
 
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 22. Apr 2009 19:24

Re: Variable verarbeiten
 
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 22. Apr 2009 20:16

Re: Variable verarbeiten
 
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!

DP-Maintenance 22. Apr 2009 20:19

DP-Maintenance
 
Dieses Thema wurde von "mkinzler" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Geht um Delphi


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:52 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz