Hallo Zusammen
Habe folgendes Problem:
Ich sollte aus einem Textfile welches mehrere hundert Zeilen hat, einzelne Strings herauslesen (immer 8 Stück) anhand der Startadresse, welche vor dem String steht und mit Doppelpunkt vom restlichen Teil abgetrennt ist. Für die Startadresse habe ich ein Eingabefeld welches Hexadezimale Zahlen lesen kann. Nun die Adresse besteht aus Hexadezimalen Zahlen und dient im Moment für eine externe Applikation, dass heisst ich muss die Adresse noch entfernen bevor ich den Rest des Strings in den Array schreibe. Ich habe mir gedacht dass ich das ganze File in eine Stringlist Packe und so dann die Zeilen auslese, jedoch habe ich keine Ahnung wie man dass machen kann. Im Anhang stelle ich euch noch ein Adressfile zur Verfügung. Zusätzlich hier den Angefangenen Code von mir:
Delphi-Quellcode:
procedure THauptformular.sbtnBmpErstellenClick(Sender: TObject);
var
hexarray : array[0..7] of String;
y : Word;
ihexzaehler : integer;
StrLSort : TStringList;
StrSourcePfadName : String;
StrSourceName : String;
StrSourcePfad : String;
begin
DialogOpen.DefaultExt := '*.hex.gz';
DialogOpen.Filter := 'Unifont-Files (*.hex.gz)|*.hex.gz|Text-Datetein (*.txt)|*.txt|Alle Dateien (*.*)|*.*';
dialogOpen.Execute;
StrSourcePfadName := Trim(dialogOpen.Files.Text);
StrSourceName := StrSourcePfad;
StrSourcePfad := ExtractFilePath(StrSourcePfadName);
StrLSort := TStringList.Create;
StrLSort.LoadFromFile(StrSourcePfadName);
if TryStrToInt('$' + Edit1.Text, iHexZaehler) then
begin
iHexzaehler := iHexzaehler -1;
for y := 0 to 7 do
begin
iHexzaehler := iHexzaehler +1;
hexarray[y] := StrLSort.ValueFromIndex[];
end;
end;
end;
end.
Wäre froh wenn ihr mir da helfen könnt ich stehe unter grossem Zeitdruck...
