Deutsches Lazarusforum

Dank Indianer-frank haut das jetzt hin...

Nochmals dank an alle...

ja da hast du Recht, Programmieren ist nicht mein Steckenpferd, komme aber gerade nicht daran vorbei.
Daher bitte ich ja hier um ein wenig Hilfe. Danke im übrigen für die Tipps.

Code wurde abgeändert und sieht wie folgt aus:

c : string;
e : string[125];
ff : byte;
ii : integer;
p : array[1..49 ...

Hier nochmal der komplette Code:

c : char;
e : string[125];
ff : byte;
ii : integer;
p : array[1..49] of real;


if pos('P35',e)>0 then begin
writeln(fo,'!!!!!!! HIER habe ich den Parameter P35 gefunden !!!!!!!!');
ff:=pos('P35',e)+4;
c := e[ff];
while (e[ff]in['.','-','+','0'..'9'])and ...

Danke, das hat mir erstmal zum Verstehen geholfen. Jetzt habe ich natürlich das Problem das
nicht nur Ganzzahlen, sondern auch Real sowie positive und negative Zahlen vorkommen können.
Deshalb saß ich gestern noch einige Zeit und habe versucht dies abzufangen:

while (e[f]in['.','-','+','0'..'9 ...

Danke erstmal an alle, auch wenn es in vielen Beiträgen nicht ganz um das Problem geht...

@indianer-frank
habe gestern mal ein wenig gegrübelt und habe gesehen das Position nicht gleich Inhalt ist.
Ich habe zuerst versucht den Wert mit val zu speichern. Leider erwartet val einen String und kein ...

Hallo zusammen,

habe eine Pascaldatei die ich bearbeiten muss, ich hoffe ihr könnt mir helfen.

In der Textdatei stehen Parameter wie P35,5 P36,6. Das Programm liest jede Zeile ein und durchsucht diese.
Ich möchte die Werte gerne speichern, da ich diese für eine Verrechnung später brauche.

Der ...