Forum: Algorithmen, Datenstrukturen und Klassendesign
by Uwe Raabe,
16. Mai 2019
Dann musst du die StringList manuell mit jeweils nur einem Block füllen und danach wieder leer machen. Z.B. so:
procedure HandleData(Source: TStrings);
var
CallerID: string;
EventName: string;
begin
if Source.Count = 0 then Exit;
EventName := Trim(Source.Values);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Uwe Raabe,
10. Mai 2019
Wir wäre es denn hiermit:
function ExtractCallerID(const AFileName: string): string;
var
lst: TStringList;
begin
lst := TStringList.Create;
try
lst.LoadFromFile(AFileName);
lst.NameValueSeparator := ':';