viele Texte speicheren una aufrufen??

[zeina]

Guten Tag,
Ich habe eine Aufgabe ,dass ich jedes mal auf (memo)einen text schreiben muss,danach soll ich das mit der nummer von text aufrufen.
z.b:ich schreibe drei texte,dann will ich die text zwei mir zeigen.
Ich habe es mit Tstringlist gemacht,aber mein Programm speichert nur die letzte text.
kann jemanden mir dabei helfen oder raten??

[hoika]

Hallo,
beim StringList.SaveToFile kann man doch einen beliebigen Dateinamen angeben.
Denn musst Du halt nur selber zusammenbauen.

[TiGü]

Ist Deutsch deine Muttersprache?

Kannst du uns deinen bisherigen Quelltext zeigen?

[zeina]

Zitat:

Zitat von TiGü (Beitrag 1415846)

Ist Deutsch deine Muttersprache?

Kannst du uns deinen bisherigen Quelltext zeigen?

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var i:integer;
begin
savecsv(i,ExtractFilePath(ParamStr(0)) + 'Koordinaten.csv');
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
  loadcsv(2,ExtractFilePath(ParamStr(0)) + 'Koordinaten.csv');
end;
procedure TForm2.savecsv(ID: integer; Filename: string);
var KPolygon:TStringlist;
    Slist:Tstringlist;
    Sl:Tstringlist;
    csvtextlin:string;
    i,j:integer;
begin
try
Slist:=Tstringlist.Create;     Sl:=Tstringlist.Create;
 for I := 0 to 3 do

  KPolygon:=Tstringlist.Create;
   for j := 0 to RichEdit1.Lines.count - 1 do
    begin
      csvtextlin:= RichEdit1.Lines[j];
      KPolygon.Add(csvtextlin);
    end;
        Slist.AddStrings(KPolygon);
     Slist.SaveToFile(Filename);
     Showmessage(Slist.Text);
   finally
      KPolygon.Free;
   Slist.Free;
end;
end;
procedure TForm2.loadcsv(ID: integer; Filename: string);
var KPolygon:TStringlist;
    Slist:Tstringlist;
    csvtextlin:string;
    i,j:integer;
begin
try
Slist:=Tstringlist.Create;
Slist.LoadFromFile(Filename);
id:=Slist.count;
 for I := 0 to id-1 do
   KPolygon:=Tstringlist.Create;
   if (KPolygon[i])=inttostr(id) then
   for j := 0 to KPolygon.count - 1 do
    begin
      csvtextlin:= KPolygon.Strings[j];
    end;
      Showmessage(KPolygon.Strings[j]);
finally
     KPolygon.Free;
   Slist.Free;
end;
end;

[DeddyH]

Bitte bearbeite Deinen Beitrag und setze den Code in Delphi-Tags (entweder über die "Helm"-Schaltfläche oder händisch mit [ delphi ]Code[ /delphi ] ohne die Leerzeichen).

[DeddyH]

Du müsstest mal begin-end-Blöcke setzen. Beispiel:

Zitat:

Delphi-Quellcode:

    for I := 0 to 3 do

      KPolygon := Tstringlist.Create;

Du erzeigst hier 4 Stringlisten, wobei die entsprechende Variable mit jeder neuen Instanz überschrieben wird, d.h. die vorherigen 3 kannst Du gar nicht freigeben -> Speicherleck. Außerdem ist die korrekte Syntax eines Speicherschutzblocks

Delphi-Quellcode:

Obj := TKlasse.Create;
try
  Obj.TuWas;
finally
  Obj.Free;
end;

Also das try hinter die Instanzierung.

[edit] Wo wird denn SL wieder freigegeben? Und der ID-Parameter wird zumindest beim Speichern nicht benutzt, wozu ist der gut? [/edit]

[zeina]

könnte ich ein Array of Tstrings oder Stringlist um jeder String zu Speichern!!könnte jemanden mir dabei Hilfen,weil ich ِziemlich anfängerin bin:cry::cry::cry:

[DeddyH]

Erklär doch erst einmal, was genau Du eigentlich machen willst, zumindest mir ist das noch nicht ganz klar.

[zeina]

ich habe ein OpenStreetmap und soll die Koordinaten für solchen Ort in Memo zeigen oder in Array Speicheren.
Ich soll jeden Ort markieren und mit index die koordinaten speichern ,danach kann ich sein Koordinaten durch sein index oderDie nummer von Ort aufrufen

[DeddyH]

Und was steht wo? In Deinem Code kann ich nur ein RichEdit und jede Menge Stringlisten erkennen. Und wir die ID da rein spielt hast Du auch noch nicht beantwortet.