Delphi - uložení do souboru

Čo je u Teba "pole číslic", čo je u Teba "v editu"?
Čo sa Ti nedarí kam nahrát, ovládaš prácu so súbormi?

Na takto obecne položenú otázku, kde navyše evidentne chýbajú obecne základné znalosti programovania sa nedá odpovedať inak ako:
dá sa to!

čo je u Teba "v editu"?

V tomhle okýnku Edit1:

Čo je u Teba "pole číslic"

Třeba tohle: 1 2 3 4 5

vím že třeba z listboxu to jde

Ano jde: ListBox1.Items.SaveToFile("a.txt");
v Edit1 to takhle nejde, je potřeba znát práci se soubory

Ty si "mluvčí" jogobelly ?

No prostě mám jednorozměrné pole v editu, pak pomocí druhého buttonu ho mám seřazené od největšího po nejmenší ale už nevím jak ty číslice uložit do listboxu.

Komponenta TEdit = textový reťazec, žiadne pole... Ako pracuješ s tým textovým reťazcom?
Daj sem kód, lebo mi nejak uniká pointa Tvojho "jednorozmerného poľa".

nějak uložit do souboru

číslice uložit do listboxu

Takže si ujasni co vlastně chceš

var
Form1: TForm1;
i,j,pos,pocet:integer;
pole:array [1..25] of integer;
ret:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
randomize;
labelededit1.Text:=''; labelededit2.Text:='';
for i:=1 to 25 do
begin
pole[i]:=Random(99)+1;
labelededit1.Text:=labelededit1.Text+IntToStr(pole [i])+k;
end;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
labelededit2.Text:='';
for i:=1 to 25-1 do
for j:=1 to 25-1 do

if pole[j] < pole[j+1] then
begin
pos:=pole[j]; pole[j]:=pole[j+1];
pole[j+1]:=pos;
end;
for i:=1 to 25 do
labelededit2.Text:=labelededit2.Text+IntToStr(pole [i])+ ' ,';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
listbox1.Items.SaveToFile('pole.txt');
end;

end.
Z toho druhého editu bych to rád dostla do listboxu, když z editu to uložit nepůjde, abych to pak mohl mít v textovém souboru.

když z editu to uložit nepůjde

ale půjde, hned první odkaz:
http://www.google.cz/search?q=delphi+prace+se+soub ory&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:cs:offi cial&client=firefox-a

Podrobne som neskúmal ten Tvoj kód, ale ak Ti ide len o uloženie textového reťazca z Editu potom napr. takto:

procedure TForm1.btnWriteClick(Sender: TObject);
var
  F: TextFile;
begin
  AssignFile(F, 'C:\Test\Data.txt');
  Rewrite(F);
  WriteLn(F, Edit1.Text);
  CloseFile(F);
end;

Nebo pomoci TStringList - obdoba ListBoxu

procedure TForm1.btnWriteClick(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  sl.Add(Edit1.Text);
  sl.SaveToFile('C:\Test\Data.txt');
  sl.Free;
end;

Díky pane, funguje to.

Zdravím.
A když mam pole.
cisla : Array [1..20] of integer;
nebo
hesla : Array [1..20] of string;

A chci je při spuštění projektu načist a při ukončení uložit?
Jak nejjednodušejí na to?

Asi nejak takto:

procedure SaveArray(var A: MyArray);
var
  S: TFileStream;
begin
  S := TFileStream.Create('cisla.dat', fmCreate);
  try
    S.Write(A, SizeOf(A));
  finally
    S.Free;
  end;
end;

procedure LoadArray(var A: MyArray);
var
  S: TFileStream;
begin
  S := TFileStream.Create('cisla.dat', fmOpenRead);
  try
    S.Read(A, SizeOf(A));
  finally
    S.Free;
  end;
end;

Bojím, se, že tohle by pro Array of string nefungovalo a uložilo by to pouze pole ukazatelů na ty řetězce.
Pro ukládání řetězců tímto způsobem by se musel použít ShortString, např:

array [1..20] of String[20];