Witam,
mam na celu stworzyć aplikację, która po wciśnięciu Buttona, z jednego pliku tekstowego, w którym przechowywane są dane w takiej postaci:
aaaaaaa, bbbbbb, cccccc
zapisze dane aaaaaaa, bbbbbbb, ccccccc w trzech innych plikach tekstowych.
Na razie próbuję się uporać z pierwszą kolumną "aaaaaaa", by zapisać ją w pliku. Poniższy program kompiluje się, ale po wciśnięciu przycisku aplikacja się zawiesza, no i oczywiście nie działa jak powinna. Jak to poprawić? :( Zapewne zadanie można rozwiązać różnorako, np. że przecinek potraktować jako separator, ale tak próbowałam i coś tam nie wyszło, więc dałam sobie spokój -.-
procedure TForm1.Button1Click(Sender: TObject);
var
tablica: array of string;
f: textfile;
g: textfile;
s: string;
i: integer;
begin
assignfile(f,'C:\Users\Magda\Desktop\lokalizacje.txt');
assignfile(g,'C:\Users\Magda\Desktop\miasta.txt');
reset(f);
rewrite(g);
repeat
begin
Readln(f,s);
SetLength(tablica, Length(s));
for i:=1 to Length(s) do
begin
repeat
Tablica[i] := s[i];
writeln(g, s[i]);
until Tablica[i] = ',';
end;
end;
until eof(f);
closefile(f);
closefile(g);
end;
Będę wdzięczna za pomoc,
Pozdrawiam :)