AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Variablen in TMemo sortieren ?

Ein Thema von bommelbongo · begonnen am 27. Apr 2008 · letzter Beitrag vom 29. Apr 2008
Antwort Antwort
Nuclear-Ping
(Gast)

n/a Beiträge
 
#1

Re: Variablen in TMemo sortieren ?

  Alt 27. Apr 2008, 16:56
Wenn in deiner Datei nur Texte drinstehen, kannst du auch von der typisierten Datei abstand nehmen und den ganzen Spaß im CSV-Format speichern und das per TStringList verwalten.
Delphi-Quellcode:
var
  sList: TStringList;
begin
  sList := TStringList.Create;
  try
    sList.Add ('Müller;Franz;Hannover;31.02.1974');
    sList.Add ('Albrecht;Gustel;Dortmund;15.08.1949');
    sList.Add ('Zeppelin;Ferdinand;Berlin;08.07.1838');
    sList.Add ('Klemens;Klaus;Dresden;07.12.1969');

    sList.SaveToFile ('C:\daten.txt');

    ShowMessage (sList.GetText);

    sList.Clear;

    sList.LoadFromFile ('C:\daten.txt');
    sList.Sort;
    
    ShowMessage (sList.GetText);
  finally
    FreeAndNil (sList);
  end;
end;
Das ist natürlich nur eine rudimentäre Sortierung nach Nachname. Nach dem Laden kannst du die Zeilen anhand des ; trennen und in deinen Record-Typ übergeben. Das Trennen kannst du mit den Stringfunktionen Copy, Pos, Length, Delete machen - oder du suchst mal nach String Explode.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 09:07 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz