Textinhalt aufsplitten

[Coffeecoder]

Sollte dein Programm mehrsprachig werden?
Machst du deshalb diese Trennung? Sonst könntest du dir mal XML ansehen.

[EarthQuaker]

Nein soll nicht mehrsprachig sein, dies war eher ein Beispiel, worin ich beschreiben wollte was eigentlich genau gemeint ist.

Ist im endefekt eh der Letzte schritt vom Programm, alle anderen dinge sind bereits fertig, jedoch kam ich da leider nicht mehr weiter.


Danke trotzdem nochmals für die Antworten jetzt fehlt nur noch den Edit2 zu speichern hihi

MfG

[EarthQuaker]

Hey, so habe es nun erstmal geschaft habe aber trotzdem noch eine frage an euch sicherlich hilfsbereiten usern

Habe mal einen screenshot angehangen und nun meine frage:

wie bekomme ich denn hin das alles nicht links in die listbox eingetragen wird sondern rechts in die 2 listboxen und das auch getrennt? der rest funktionierte dank eurer hilfe ganz gut

Bitte daher nochmal um eure hilfe, VIELEN Dank


MfG

[DeddyH]

Ohne Gewähr, da aus dem Kopf getippt:

Delphi-Quellcode:

procedure VerteileStrings(Quelle, Ziel1, Ziel2: TStrings);
var
  List: TStringlist;
  i: integer;
begin
  Assert(Assigned(Quelle) and Assigned(Ziel1) and Assigned(Ziel2));
  Ziel1.BeginUpdate;
  try
    Ziel1.Clear;
    Ziel2.BeginUpdate;
    try
      Ziel2.Clear;
      List := TStringlist.Create;
      List.Delimiter := ';';
      try
        for i := 0 to Quelle.Count - 1 do
          begin
            List.DelimitedText := Quelle[i];
            if List.Count > 0 then
              Ziel1.Add(List[0]);
            if List.Count > 1 then
              Ziel2.Add(List[1]);
          end;
      finally
        List.Free;
      end;
    finally
      Ziel2.EndUpdate;
    end;
  finally
    Ziel1.EndUpdate;
  end;
end;

[EarthQuaker]

Danke dir DeddyH, muss ich nur schauen ob ich es anpassen kann irgendwie. derzeit klappts noch nicht. Das nach langem echt mal wieder eine herrausforderung

Weitere tips sind willkommen hier

MfG

[DeddyH]

Wie rufst Du es denn auf? Eigentlich sollte es klappen (gut, ich bin auch nicht fehlerfrei, aber so auf Anhieb kann ich nicht erkennen, was da nicht funktionieren sollte).

[EarthQuaker]

Also ganz normal öffne ich eine Textdatei:

Code:

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
DateiName: TFileName;
begin
if OpenDialog1.Execute then
begin
ListBox1.Clear;
DateiName := (OpenDialog1.Filename);
ListBox1.Items.LoadFromFile(DateiName);
end;
end;

und auf klick von der Listbox bei den einträgen fügt sich das ganze in die 2 und 3 listbox ein.

Code:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
for i := 0 to ListBox1.Items.Count -1 do
begin
if ListBox1.Selected[i] then
Edit1.Text := ListBox1.Items.Strings[i];

  ListBox2.Items.Strings[0] := Copy(Edit1.Text,1, (pos(';',Edit1.Text))-1);
  ListBox3.Items.Strings[0] := Copy(Edit1.Text,pos(';',Edit1.Text)+1,length(Edit1.Text));

end;
end;

Im endefekt soll es dich jedoch schon beim offnen der datei gleich auf die listbox2 und 3 verteilen, somit spare ich mir dann die listbox1.


MfG