viele Texte speicheren una aufrufen??

[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

[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.

[zeina]

Delphi-Quellcode:

function TForm2.Add(const line: Tstrings): integer;
var
  i : Integer;
  j : Integer;
   oSLArray : array of TStringList;
  oSL : TStringList;
begin
  if not(Assigned(line)) then exit;
  SetLength(oSLArray, line.Count);
  for i := 0 to line.Count - 1 do begin
    oSLArray[i] := TStringList.Create;
    oSLArray[i].Delimiter := ' ';
    oSLArray[i].DelimitedText := line[i];
    for j := 0 to oSLArray[i].Count-1 do begin
      Showmessage( oSLArray[i].Strings[j]);

    end;  {for j}

  end; {for i}
end;
Function TForm2.Polygon:integer;
var
    Slat,Slon: string;
     Poly    : TMapPolygon;
     PItem   : TPolygonItem;
     Pi      : TPathItem;
     Count,i : Integer;
     IdPolygon: Integer;

begin
  Result:=-1;
  WebOSMaps1.Markers.Clear;
  PItem := WebOSMaps1.Polygons.Add;
  Poly := PItem.Polygon;
  Poly.PolygonType     := ptpath;
  Poly.BorderWidth     := 4;
  Poly.BorderColor     := clWebDarkBlue;
  Poly.BorderOpacity   := 100;
  Poly.LabelFont.Style := [fsBold];
  Poly.LabelOffset.Y   := 200;
  Poly.LabelFont.Color := clWebDarkBlue;
  Poly.LabelText       := ('Das Polygon hat :'+IntToStr((RichEdit1.Lines.count)div 2)+' Eckpunkte');
  if RichEdit1.Lines[0] <> '' then begin
    WebOSMaps1.MapOptions.DefaultLatitude:=strtofloat(RichEdit1.Lines[0]);
    WebOSMaps1.MapOptions.DefaultLongitude:=strtofloat(RichEdit1.Lines[1]);
    WebOSMaps1.MapPanTo(WebOSMaps1.MapOptions.DefaultLatitude,WebOSMaps1.MapOptions.DefaultLongitude);
    WebOSMaps1.MapOptions.ZoomMap:=18;
    i := 0;
    repeat
      Slat  := left(RichEdit1.Lines[2 * i],10);
      Slon  := left(RichEdit1.Lines[2 * i + 1],11);
      Pi    := Poly.Path.Add;
      Pi.Latitude  :=strtofloat(SLat);
      Pi.Longitude := strtofloat(SLon);
      inc(i);
    until (RichEdit1.Lines[2 * i + 1] = '');
    WebOSMaps1.CreateMapPolygon(Poly);
  end;
  Result:= Poly.ItemIndex;
  Showmessage(inttostr(Poly.ItemIndex));
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
polygon;
Add(RichEdit1.Lines);
end;

wie kann ich für jeden Ort (Richtedit1.lines)Speicheren und nochmal aufrufen!!!

[DeddyH]

Meine Güte, sieht das kompliziert aus. Gehen wir es mal anders an: wie sieht der Inhalt des RichEdit aus, und was soll am Ende herauskommen?