Forum: Programmieren allgemein
by juergen,
7. Nov 2022
—-doppelter Post—-, gelöscht
Forum: Programmieren allgemein
by juergen,
7. Nov 2022
Da wird deine Version das TArray<STRING> wohl noch nicht unterstützen.
Genau aus diesem Grunde sollte man seine Delphiversion in seinem Profil hinterlegen.
Forum: Programmieren allgemein
by juergen,
6. Nov 2022
Habe mal beide Varianten (pro Zahl eine Zeile mit Komma am Ende und alle Zahlen kommagetrennt in 1 Zeile) in ein hier Testprojekt angehangen.
Was ist bei dir nun anders, dass es bei dir nicht funktioniert?
Beachte List1.dat und List2.dat
Forum: Programmieren allgemein
by juergen,
6. Nov 2022
Ich bin jetzt etwas verwirrt. Im Post #1 und #7 hast du Zahlen untereinander stehen.
Jetzt im Post #13 auf einmal nebeneinander. Ich deute das Ergebnis aus Showmessage nun so, dass die Zahlen kommagetrennt nebeneinander in den Zeilen stehen.
Dann könnte man das so umsetzen.
VAR
s, s2: STRING;
List: TStringList;
i, i2: Integer;
arr: TArray<STRING>;
BEGIN
Forum: Programmieren allgemein
by juergen,
6. Nov 2022
Da ich das Komma als Problem vermutet hatte, hatte ich StringReplace() vorgeschlagen.
Wenn du meinen Code anwendest:
Wie oft erscheint die Showmessage mit s2 ?
Und was genau steht eigentlich in s?
Forum: Programmieren allgemein
by juergen,
5. Nov 2022
Der Code sollte doch funktionieren. Daher vermute ich, dass in der List.dat-Datei ein Komma ist und in sl.Strings nicht?
Probiere mal folgendes.
VAR
s, s2: STRING;
List: TStringList;
i: Integer;
BEGIN
IF FileExists( ExtractFilePath( ParamStr( 0 ) ) + '\List.dat' ) THEN