Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - String-Abschnitte sotieren
Robii - Di 02.06.09 22:07
Titel: String-Abschnitte sotieren
Hallo,
ich habe einen String, der mehrere tausend Zeichen umfasst. Bzw eine Datei in der mehrere tausend Zahlenketten vorhanden sind.
Und zwar nach dem Schema 'xZahlen'+' '+'xZahlen'. Ich möchte jetzt gerne in eine Procedure den String so aufteilen, das ich die erste
Zahlenkette nehme und mit ihr Arbeite, danach die zweite Zahlenkette usw. Wie ist das zu realisieren?
Grüße.
Tropby - Di 02.06.09 22:18
Hi,
zuerst würde ich den File in eine TStringList laden.
Dann eine schleife bauen.
Ungefähr so:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| procedure Load ();
var
F : TStrings;
begin
F := TStringList.Create();
F.LoadFromFile('Filename');
Zeichenketten(F.Text);
end;
procedure Zeichenketten (S : String);
var SW : String;
ST : TStrings;
begin
ST := TStringList.Create;
while S <> '' do
begin
S := copy(S, pos(' ', S) + 1, Length(S));
SW := copy(S, 1, pos(' ', S) - 1);
ST.Add(SW);
end;
end; |
Hab gerade nichts zum testen da aber so ungefähr sollte das Funktionieren.
bummi - Mi 03.06.09 09:54
oder wenn man faul ist:
F := TStringList.Create();
F.LoadFromFile('Filename');
F.Text := StringReplace(f,' ',#13#10);
...
...
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!