Работа с текстовыми файлами (Delphi)

[Omedus]

Никогда не работал с файлами в Delphi, а тут пришлось.
Собственно задача: есть несколько объектов Memo и соответственно текст в них. Необходимо создать текстовый файл n.txt , в котором будут находиться соединённые куски текстов из разных Memo.
Помогите пожалуйста с данной проблемой. Заранее спасибо.

[puporev]

Можно по простому так:

procedure TForm1.Button1Click(Sender: TObject);
var a:textfile;
begin
assignfile(a,'n.txt');
rewrite(a);
write(a,Memo1.text);
write(a,Memo2.text);
closefile(a);
end;

[Dmitro62]

Нужен код занесения чисел в массив из текстового файла. Что-то не могу придумать как это реализовать.
Задача осложняется пробелами по обеим сторонам числа.

[whatever]

Сообщение от Dmitro62

Нужен код занесения чисел в массив из текстового файла. Что-то не могу придумать как это реализовать.
Задача осложняется пробелами по обеим сторонам числа.

Грубо, дешего, сердито:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  mass=array of real;
var
  m:mass;
  T:textfile;
  i:integer;
begin
  if fileexists('untitle.txt') then
    begin
      assignfile(T,'untitle.txt');
      reset(T);
    end
  else
    begin
      writeln('file not found');
      readln;
      HALT;
    end;
  for i:=1 to 17 do  //количество первых ненужных строчек
    readln(T);
  setlength(m,0);
  i:=-1;
  while not EOF(T) do
    begin
      setlength(m,length(m)+1);
      inc(i);
      readln(T,m[i]);
    end;
  close(T);
  for i:=0 to high(m) do
    writeln(m[i]);
  readln
end.

результат:

-2.10338042895099E-0004
-4.21386634160670E-0004
-8.00313514376642E-0004
-1.35135659504664E-0003
-2.09333431899084E-0003
-3.02606891339315E-0003
-4.12225568965423E-0003
-5.32100216034969E-0003
-6.52390041170699E-0003
-7.59396413077939E-0003
-8.35945964930148E-0003
-8.62259785009655E-0003
-8.17253470040414E-0003
-6.80285542894534E-0003
-4.33197216662885E-0003
-6.24270622686429E-0004
 4.38959585207300E-0003
 1.06957522451188E-0002
 1.81860236799221E-0002
 2.66541900934706E-0002
 3.58006845480449E-0002
 4.52462500173402E-0002
 5.45539343719907E-0002
 6.32578885595453E-0002
 7.08965170743072E-0002
 7.70470374111574E-0002
 8.13584366258025E-0002
 8.35795848464366E-0002
 8.35795848464366E-0002
 8.13584366258025E-0002
 7.70470374111574E-0002
 7.08965170743072E-0002
 6.32578885595453E-0002
 5.45539343719907E-0002
 4.52462500173402E-0002
 3.58006845480449E-0002
 2.66541900934706E-0002
 1.81860236799221E-0002
 1.06957522451188E-0002
 4.38959585207300E-0003
-6.24270622686429E-0004
-4.33197216662885E-0003
-6.80285542894534E-0003
-8.17253470040414E-0003
-8.62259785009655E-0003
-8.35945964930148E-0003
-7.59396413077939E-0003
-6.52390041170699E-0003
-5.32100216034969E-0003
-4.12225568965423E-0003
-3.02606891339315E-0003
-2.09333431899084E-0003
-1.35135659504664E-0003
-8.00313514376642E-0004
-4.21386634160670E-0004
-2.10338042895099E-0004
 0.00000000000000E+0000

Последний ноль из-за строки с пробелами, можно тупо укоротить длину массива на единицу. А если заранее знаешь количество элементов, то просто не заморачиваешься с динамическими массивами.

[Dmitro62]

Мне же не на паскале нужно, а на делфи без опенфайл.

procedure TForm1.Button1Click(Sender: TObject);
begin
OpenDialog1.Execute;

?

end;

Сам поробовал изменить вашу программу, но не получилось.

[Базиля]

if OpenDialog1.Execute then
begin
s:= OpenDialog1.FileName; //путь к файлу
ну и соответсвенно далее все также
assignfile(f,s);
reset(f);
.........
closefile(f);

[mari94]

помогите пожалуйста 8 вариант