Diplomarbeit - Prof. Dr.-Ing. Kay Rethmeier

„Simulation und messtechnische Überprüfung von Feldsensoren zur ortsselektiven TE-Messung
an Hochspannungskabelgarnituren“ – Diplomarbeit an der TU-Berlin / IEE 1999
while not eof(f1) do begin
readln(f1,zeile);
kommastelle:=pos(',',zeile);
if kommastelle0 then begin
{writeln('Kommastelle: ',kommastelle);}
zeitstring:=copy(zeile,1,kommastelle-1);
{ writeln('Zeitstring: ',zeitstring);}
val(zeitstring,zeit,code);
{writeln('Zeit: ',zeit);}
if offset=0 then begin
offset:=zeit;
writeln('Offset gesetzt: ',offset);
end;
zeit:=zeit-offset;
writeln(f2,zeit,copy(zeile,kommastelle,length(zeile)));
end; {Conv}
end;{0}
end;{while}
close(f1);
close(f2);
writeln;
end; {file exists}
writeln(' Erfolgreich !!!!!!!!!!!!');
{***************************************************************
**}
begin {*** Hauptprogramm
*****************************************}
StrCopy(WindowTitle, 'Kay´s TEK 2 PSpice Converter');
if mindestens_ein_parameter then begin
for lauf:=1 to anz_parameter do begin
writeln(quelldatei(lauf));
K. Rethmeier Seite 82