read und write

[Mavarik]

Zitat von EWeiss:

Ich suche eine Lösung für Meine Anwendungsweise.

Pseudo Code:

Delphi-Quellcode:

I := 0;
if FileExists
  While not eof do
    Readln(F,Array[i])
    inc(I)

Work...

if not(Array[0] = 'Whatever')
  Writeln('Whatever')

For i:=0 to high(Array) do
  Writeln(f,Array[i])